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IDENTIFICATION 


PRODUCT CODE:  AC-8520C-MC 

PRODUCT NAME: CZDLBCO DL11-E ON LINE TEST 

PRODUCT DATE: JULY 1979 

MAINTAINER: DIAGNOSTIC ENGINEERING 

AUTHOR: ROBERT WHITTON 
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 
THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL. 
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2 Ve ABSTRACT 

53 TWO SEPARATE DIAGNOSTIC PROGRAMS ARE PROVIDED FOR THE DL11-E 
54 (ASYNCRONOUS LINE INTERFACE), CZDLA (DL11~E OFF LINE 

55 TESTS) AND CZDLB (DL1?-E ON LINE TESTS). THE OFF LINE 

56 . TESTS TEST ALL DL11-E LOGIC AND MAY BE USED TO INDIVIDUALLY 

57 TEST UP TO 31 DL11-E°S. THE OFF LINE TESTS DO NOT REQUIRE THE 
58 USE OF A MODEM, HOWEVER A SPECIAL JUMPER CONNECTOR IS REQUIRED. 
59 THE ON LINE TESTS ARE ESSENTIALLY DATA RELIABILITY TESTS RE- 
a QUIRING THE USE OF MODEMS AND A SUITABLE TERMINAL DEVICE. 

6¢ THREE STARTING ADDRESSES ARE PROVIDED. THEY ARE: 

64 200 - NORMAL START 


210 - REMAP DEVICES PRESENT AND RESTART 
220 - MODIFY DEVICE ADDRESSES IF NON STANDARD 
INSTRUCTIONS TO DO THIS ARE TYPED OUT. 


65 

67 

69 THIS DOCUMENT DESCRIBES THE ON LINE TESTS. 

al THE AVAILABLE TESTS ARE: 

73 PRGO SINGLE CHARACTER LINE MODE DATA TEST 
74 PRG1 BINARY COUNT LINE MODE DATA TEST 

a , ) . PRG2 MESSAGE TRANSMIT ONLY W/W/O PARITY 
77 
78 
79 
80 
81 
8 


PRG3 RECEIVE DATA TEST 
PRG4 MESSAGE TRANSMIT (SPIRAL) ONLY W/W/O PARITY. 


2. REQUIREMENTS 
2.1 EQUIPMENT 
85 3 A. PDP 11 SYSTEM 
Be B. DL11-E(S) 
Bo , C. SUITABLE TERMINAL DEVICE (ASR 33, 37, DATA POINT. ETC) 
89 | --D. ~MODEM TYPE 103 OR 202 OR EQUIVALENT 
31 2 STORAGE 


93 THIS PROGRAM USES 8K OF MEMORY 
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3 OPERATING PROCEDURE : | 
5,1 LOADING PROCEDURE | 

THE ABSOLUTE LOADER IS USED TO LOAD TKE PROGRAM. | 
3.2 DL11-E PARAMETER SELECTION 

THE SELECTABLE DL11-E PARAMETERS ARE: | 
BIT1-0 CHARACTER LENGTH 


BIT] BITO CHAR. LENGTH 
0 ) 8 
0 1 7 
1 0 6 
1 1 5 


WHEN A TERMINAL IS INVOLVED DL11-E PARAMETERS SHOULD BE 
SET ACCORDING TO TERMINAL SPECIFICATIONS. 


Fhe PDP-11 STANDARD OPERATING PARAMETERS 


VISDOVE ARAN ASSRIRARAVLSSELRAK 


SW15 1 HALT ON ERROR 

Swi4 1 SCOPE LOOP (NOT USED) 

Sw13 1 INHIBIT ERROR PRINTOUT 

SWi2 1 INHIBIT TRACE TRAP (NOT USED) 
SwW11 1 INHIBIT ITERATION (NOT USED) 
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THERE ARE THREE CONFIGURATIONS USING DL11-E/MODEM PAIRS WHICH 


MAY BE SELECTED BY PRGO AND PRG1. 


THESE 


CONF I GURAT IONS 


ARE SELECTED BY THE USER WHEN REQUESTED BY THE PROGRAM DURING 
THE LINE CONNECTION ROUTINE 


THE FOLLOWING PROCEEDURES SHOULD BE FOLLOWED TO SELECT ANY 


OF THE THREE SELECTABLE CONFIGURATIONS: 


CONF IGURATION 0: 


THIS CONFIGURATION TRANSMITS DATA FROM THE 


DL11-E CONNECTED TO THE LINE THAT WAS CALLED TO THE MODEM THAT 


CALLED (THE CALLER). 


FORMED BY THE PR 


THE TERMINAL DEVICE. TO INITIATE PROGRAM ACTION CALL THE MO- 
DEM CONNECTED TO A DL11-E FROM A 


THIS CONFIGURATION MAY BE USED TO TRAN- 
miT DATA TO A TERMINAL DEVICE. NOTE NO DATA CHECKING IS PER- 


-HOWEVER,DATA MAY BE VISUALLY CHECKED AT 


A MODEM CONNECTED TO THE TERMINAL 


DEVICE. WHEN THE PHONE RINGS AT THE PDP11 THE PROGRAM WILL REQUEST 


THE CONFIGURATION. 


SET BITSO-1=00 BY TYPING IN OCTAL FOLLOWED BY A CR. 


WHEN THE "HANDSHAKING' IS COMPLETED THE PROGRAM WILL REQUEST DL11-£ 
PARAMETERS. TYPE THE PARAMETERS AS REQUESTED. THE PROGRAM 
WILL TYPE "LINE CONNECTION MADE' AND BEGIN DATA TRANSMISSION. 


KEKKEKKEKKKKKEKKEKE 


* * 
& * 
* DATA SET * 
~ © 
* see 
KERR KKKKKKKEE 
m 

+ 

% 

* 

& 
KEKE KEKKEKKKKE 
* 
* 
* DLI1-E * 
* * 
* * 
KRKKEKKRKKEEKEKEE 


CONF IGURATION 1: 
DL11-E CONNECTED 


NECTED TO THE LINE 


CONFIGURATION 0 


THIS weit ig lige TRANSMITS DATA FROM THE 
LED TO THE DL11-E CON- 


TO THE LINE fT 


PROGRAM ACTION CALL THE DL11-E YOU WISH 
LINE CONNECTED TO THE DL11-E YOU WISH 10 RECEIVE THE DATA ON. 


WHEN THE at RI 


THE 
TYPE THIS IN OCTAL FOLLOWED BY A 


NGS AT THE PDP11 THE 


HAT WAS CAL 
THAT CALLED (THE CALLER). 


RAREKKEAKEAEKKEDKKEK 
* 
* 


* » 


* 
KAEEKKKEERKEEEKREEREER 


~ 
DATA SET * 
. 
* 
© 


EERKKAREAEREERERERE SE 


7 . 
® REMOTE ® 
© + 
* TERMINAL * 
a ~ 
* > 


REKKKREERKREKREEREE 


TO INITIATE 


TO TRANSMIT ON FROM THE 


) WILL REQUEST 
ON AND MODEM TYPE. TYPE BITO-1=01 Bs BIT2=0 IF 


AND BIT2=1 IF A 202 (OR EQUIV 


NUMBER THAT vou" CALLED FROM. 
CARRIAGE RETURN. WHEN THE CARRIER 


CZDLBCO DiL11-E ON 
CZ7DLBC .P11 

179 

180 

181 


— 
00 OO 
WMO 


—_ wd od 3 4 3 we Uo 
RAREALSSEIRAR 


197 


LINE TSET 


19. JuL~79 15:06 


MACY11 30A(1052) 


19=JUL~79 


"9 
15:10 PAGE 5 


IS HEARD IN THE HEADSET PRESS THE DATA BUTTON ON THE DATA SET. 
YOU HAVE APPROXIMATLY 10 SECONDS IN WHICH TO DO THIS. WHEN 
THE *HANDSHAKING' IS COMPLETED THE PROGRAM WILL REQUEST 
DL11-E PARAMETERS. TYPE THE PARAMETERS AS + ie 7 Ae 


THE PROGRAM WILL 


BEGIN DATA TRANSMISSION 


TYPE 


"LINE CONNECTION MADE’ AND 
. WHEN 100. CHARACTERS HAVE BEEN 


PROCESSED (TRANSMITTED/RECEIVED AND CHECKED) THE BELL WILL 
RING AT THE TTY, AND ANOTHER 100. CHARACTER BLOCK WILL BE 


PROCESSED. 


NOTE, DL11~EAX REFERS TO THE 


FERS TO THE CALLING DL11-E. 
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* ¥ 
* * 
* DATA SET * 
* sf 
* * 
RERAEKEKHEREEEKKHKEK 


* 
* 
® 
* 
KEE KEKREKEEEKEEAH 


as 
* 
*  DLIT-E 
x 
® 
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® 
* 
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RAKE KEKKEE 


* * 
* * 
* DATA SET * 
* * 
th * 
KRRAKEREEAKEEEAEKAEKSE 

* 

* 

a 

* 
eeaccaeaenaaeneseancaeate 
* * 
* = 
* DLII1-E ‘ 
® * 
* * 
EeERKREKREREHEEREKREREAEERE 


"CALLED' DL11-E, AND DL11-E4Y RE- 
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CONFIGURATION 2: THIS CONFIGURATION TRANSMITS DATA FROM BOTH 
THE CALLED TRANSMITTER AND THE TRANSMITTER CONNECTED [O THE 

LINE THAT WAS CALLING,I.E. IN ADDITION TO THE DATA TRANSMITTED 

AS IN CONFIGURATION 1 DATA IS ALSO TRANSMITTED IN THE REVERSE 

DIRECTION. TO INITIATE PROGRAM ACTION CALL THE DL11-E YOU WISH 
TO TRANSMIT ON FROM THE DL11-E YOU WISH TO RECEIVE/TRANSMIT ON. 

WHEN THE PHONE RINGS AT THE PDP11 THE PROGRAM WILL REQUEST THE 
CONFIGURATION AND MODEM TYPE. TYPE BITO-1 =10 AND BIT2=0. NOTE: 
xxxaeee*DOQ NOT USE MODEM TYPE 202 (OR EQUIV) USING CONFIG #2***« 
THE PROGRAM WILL REQUESi THE LINE YOU CALLED FROM. TYPE THE 

NUMBER IN OCTAL FOLLOWED BY A CR. WHEN THE CARRIER IS 

HEARD IN THE HEADSET PRESS THE DATA BUTTON ON THE DATA SET. 

NOTE YOU HAVE APPROXIMATLY 10 SECONDS IN WHICH TO DO THIS. 

WHEN THE ‘HANDSHAKING IS COMPLETED THE PROGRAM WILL REQUEST 

TWO SETS OF DL11-E PARAMETERS. THE CHARACTER LENGTH OF BOTH SETS 

MUST BE THE SAME AND THE SPEED OF THE SECOND SET MUST BE GREATER 
THAN THE SPEED OF THE FIRST. WHEN THE PARAMETERS HAVE BEEN LOAD- 

ED THE PROGRAM WILL TYPE ‘LINE CONNECTION MADE’ AND BEGIN TO 

WAY DATA TRANSMISSION. WHEN 100. CHARACTERS HAVE BEEN RECEIVED 

AND CHECKED THE BELL WILL ge AT THE TTY, AND ANOTHER BLOCK 

OF 100. CHARACTERS WILL BE PROCESSED. 

th SG DL11-EA#X REFERS TO THE ‘CALLED’ DL11-E, AND DL11-E#yY RE- 
FERS TO THE "CALLING" DL11-E. 


LINE NUMBERS 
LINE NUMBER REFERS TO THE ADDRESSES TO WHICH THE DL11-E RESPONDS. 


LINE 00 77561X LINE 10 77571X LINE 20 77601X LINE 30 77611X 
LINE 01 77562X LINE 11 77572K LINE 21 77602X LINE 31 77612x 
LINE O02 77563X LINE 12 775735X LINE 22 77603X LINE 32 77615x 
LINE 03 77564X LINE 13 77574k LINE 23 77604X LINE 33 77614Xx 
LINE 04 77565X LINE 14 77575X LINE 24 77605X LINE 34 77615Xx 
LINE 05 77656X LINE 15 77576X LINE 25 77606X LINE 35 77616x 
LINE 06 77567X LINE 16 77577X LINE 26 77607X LINE 36 77617x 
LINE 07 77570X LINE 17 77600K LINE 27 77610x 


SEQ 0006 
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USE PROCEDURE 


THIS PROGRAM HAS BEEN MODIFIED TO RUN WITH OR WITHOUT 

A CONSOLE PROCESSOR. 

IF A CONSOLE MACHINE IS USED; THEN THE PROGRAM 

LOOKS AT THE HARDWARE SWITCH REGISTER. 

IF A CONSOLE=LESS MACHINE IS USED; THEN THE PROGRAM 
AUTOMATICALLY LOOKS AT THE CONTENTS OF LOCATION 

SOFTSR (176) AS A SWITCH REGISTER. 

IF A HARDWARE SWITCH REGISTER DOES NOT EXIST, THE PROGRAM WILL 
USE THE CONTENTS OF LOCATION 176 AS THE VALUE OF THE SWITCHES. 
THE PROGRAM WILL PRINT OUT THE PRESENT CONTEN’S OF THE SOF TWARE 
SWITCH REGISTER WHEN THE PROGRAM IS STARTED. IT WILL THEN ASK 
FOR THE NEW CONTENTS TO BE INPUT TO THE SOFTWARE SWITCH REGISTER. 
TYPE CARRIAGE RETURN TO FINISH INPUT. 

PRGO SINGLE CHARACTER LINE MODE DATA TEST 

A. LOAD ADDRESS = 000200 (RESTART LOAD ADDR. = 000200) 

B. START - PROGRAM WILL REQUEST PROGRAM NUMBER 


C. THE PROGRAM WILL NOW REQUEST THE DATA. TYPE THE DATA IN OCTAL 
FOLLOWED BY A CARRIAGE RETURN. 


D. MAKE LINE CONNECTION. SEE SECT 3.4 


PRGi ~- BINARY COUNT LINE MODE DATA TEST 

A. LOAD ADDRESS = 000200 

B. START - PROGRAM WILL REQUEST PROGRAM NUMBER 
C. MAKE LINE CONNECTION SEE SECT 3.4 


PRG2 - SPECIAL MESSAGE XMIT ONLY 
A. LOAD ADDRESS = 000200 
B. START - PROGRAM WILL REQUEST PROGRAM NUMBER 


C. DEPRESS START ~ THE PROGRAM WILL IDENTIFY ITSELF AND 
TYPE INSTRUCTIONS TO SELECT DESIRED DL11-E PARAMETERS 


(SEE SECT 3.2) 


D. TYPE IN PARAMETERS. IF IT IS DESIRED TO TRANSMIT 
DATA WITH PARITY SET BIT6. ALSO SET BITS TO TRANSMIT ODD 
PARITY AND CLEAR TO TRANSMIT E ry 


V 
BIT6 1/0 ENABLE /DI SABL 
BITS 1/0 TRANSMIT 


EQ OGO007 


specie ec nega aaa TELNET CEP CTT CECE EE LTTE LTD | CAL ELITES 
NN eee > —" —_ . 


mee ee rr > rt = re ee eee ee 
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310 

311 E. WHEN ‘MAKE LINE CONNECTION ° IS TYPED CALL THE Di1i-€ 
312 YOU WISH TO TRANSMIT ON FROM THE TERMINAL MODEM. 

315 WHEN THE ‘HANDSHAKING' IS COMPLETED THE MESSAGE 

314 "THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 

315 0123456789" WILL BE TRANSMITTED. TO TERMINATE, HANG UP, 
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PRG3 - RECEIVE TRANSMIT MESSAGE TEST 
A. LOAD ADDRESS = 000200 
B. START = PROGRAM WILL REQUEST PROGRAM NUMBER 


C. THE PROGRAM WILL IDENTIFY ITSELF AND 
TYPE INSTRUCTIONS TO SELECT DESIRED OPTIONS. 


D. SET IN OPTIONS AND PRESS CONTINUE. 


E. WHEN ‘MAKE LINE CONNECTION’ IS TYPED CALL THE DL11-E 

YOU WISH TO TRANSMIT ON. WHEN THE ‘HANDSHAKING’ IS COMPLETED 

THE DL11-E WILL TRANSMIT A CRLF TO THE TERMINAL DEVICE. AT THIS 
TIME YOU MAY BEGIN TO SEND DATA FROM THE DEVICE TO THE DL11-E 
WHERE IT WILL BE ECHOED BACK TO THE TERMINAL. TYPE ANY CHARACTER 
TO SIGNAL START OF MESSAGE. THEN TYPE MESSAGE AND THE SAME 
CHARACTER TO SIGNAL END OF MESSAGE. CONTROL C WILL CAUSE THE 
BUFFERS CONTENTS TO BE TRANSMITTED WHEN TYPED. 


F. IF NO ECHO IS DESIRED (ON A CHARACTER BASIS FOR EXAMPLE 
WHEN USING A TERMINAL THAT PRODUCES ITS OWN LOCAL COPY) 
SET BiT7 OF SWITCH REGISTER. 

PRGS ~ SPECIAL MESSAGE XMIT ONLY 


A. LOAD ADDRESS = 000200 


B. OPTIONS 
i. BITS 0-2 = 4 
2. BITS 3-6 = LINE NUMBER (SEE SECT 3.5) 


C. DEPRESS START - THE PROGRAM WILL IDENTIFY ITSELF AND 
TYPE INSTRUCTIONS TO SELECT DESIRED DL11-E PARAMETERS 


(SEE SECT 3.2) 


D. SET IN PARAMETERS IF IT IS DESIRED TO TRANSMIT 
DATA WITH PARITY RAISE SR6. ALSO RAISE SR5 TO TRANSMIT ODD 
PARITY AND LOWER TO TRANSMIT EVEN PARITY. 


BIT6 1/0 ENABLE/DISABLE PARITY 
BITS 1/0 TRANSMIT ODD/EVEN PARITY 


E. WHEN *MAKE LINE CONNECTION * IS TYPED CALL a. DLII-E 
YOU WISH TO TRANSMIT ON FROM THE TERMINAL MODEM 

WHEN THE ‘HANDSHAKING*® IS COMPLETED A SPIRAL 

PATTERN WILL BE TRANSMITTED. TO TERMINATE, HANG UP. 


a ae 
ET ST SS eR LS RRS SR a A I 


CZDLBCO DL11-E ON 
CZDLBC.P11 


19=JUL=79 15:06 


» 4 


ee 


5.4 


dv2 


LINE TSET MACY11 30A(1052) 


a - 


K 1 
19=JUL-79 15:10 PAGE 10 


PROGRAM DESCRIPTIONS 
PRGO ~ SINGLE CHARACTER LINE MODE DATA TEST 


PRGO TRANSMITS USER SPECIFIED DATA AND A CARRIAGE RETURN/LINE FEED 
EVERY 72ND CHARACTER. 


PRG1 - BINARY COUNT PATTERN LINE MODE DATA TEST 


PRG1 TRANSMITS A BINARY COUNT PATTERN. THIS PROGRAM IS THE SAME 
AS PRGO EXCEPT FOR THE DATA TRANSMITTED. 


PRG2 - SPECIAL MESSAGE TRANSMIT ONLY 


PRG2 TRANSMITS THE MESSAGE 
THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 0123456789. 
NO DATA ERROR CHECKING IS PERFORMED BY THE PROGRAM. 


PRG5 - RECEIVE/TRANSMIT MESSAGE TEST 


PRG3 - RECEIVES DATA FROM A TERMINAL AND READS THE RECEIVED MESSAGE 
BACK, AND TYPES THE MESSAGE ON THE PDP-11 TTY WHEN THE MESSAGE 

IS TERMINATED. CHARACTERS MAY BE ECHOED BACK (IF REQUIRED) CN 
Pe ~ Saat BASIS THEREBY CREATING LOCAL COPY AS THE MESSAGE 
TRANSMISSION MAY BEGIN AT THE TERMINAL WHEN A CR/LF IS RECEIVED 

AT THE TERMINAL. THIS PROGRAM IS RESTRICTED TO USE BY ONLY 

FULL DUPLEX MODEMS. 


PRG4 - SPECIAL MESSAGE TRANSMIT ONLY 


PRG4 TRANSMITS A SPIRAL PATTERN 
NO DATA CHECKING IS PERFORMED BY THE PROGRAM. 


SEQ 0010 
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ERRORS 

THERE ARE TWO TYPES OF ERRORS WHICH ARE DETECTED BY THESE TESTS 
LINE FAILURE,AND DATA ERRORS. 

LINE FAILURES ARE DETECTED AND REPORTED BY ALL TESTS, AND 

DATA ERRORS ARE OF es ee CNLY IN PRG 0 &1 WHEN USING CONF IG- 
URATIONS 1 OR 2. DATA ERRORS IN THE OTHER TESTS MAY BE DETECT- 
ED BY VISUAL INSPECTION OF THE DATA AT THE TERMINAL. 

LINE FAILURES ARE REPORTED BY TYPING THE PC,THE RECEIVER CON- 
TROL STATUS REGISTER ADDRESS, AND ITS CONTENTS. SEE THE PRO- 
GRAM LISTING FOR A DETAILED DESCRIPTION OF THE ERROR. 

THE MOST FREQUENTLY ENCOUNTERED ERROR WILL PROBABLY BE THE 
LOSS OF CARRIER. THIS ERROR WILL BE REPORTED IF AFTER A 2 


ON 
OR A ‘GLITCH’ ON THE LINE CAUSING THE CARRIER TO MOMENTARILY 
DROP. IN EITHER INSTANCE THE PROGRAM DISCONNECTS THE DL11-E 
FROM THE MODEM (BY CLEARING DATA TERMINAL READY) AND THE 
LINE WILL HAVE TO BE RECONNECTED TO RESUME TESTING. 
IF IT IS PHYSICALLY IMPOSSIBLE TO GET TO THE DATA BUTTON 
WITHIN THE TIME ALLOTTED (APPROX. 10 SECONDS) TO MAKE THE 


LAR R_ INTO T R NUMBER 

INTO THE ADDRESS FOLLOWING THE DELAY EMT (BETWEEN RINTBG AND 
RINTBH) .FOR EXAMPLE PATCHING IN 72460 WILL ALLOW APPROXIMATELY 
30 SECONDS IN WHICH TO RESPOND. 


DATA ERRORS ARE REPORTED BY TYPING THE PC, THE RECEIVER CONTROL 
REGISTER ADDRESS OF THE LINE THAT FAILED,WHAT THE DATA SHOULD 
HAVE BEEN,WHAT THE DATA WAS.AND THE CHARACTER NUMBER. 


PC=XXXXXX 174010 DATA S/B 301 WAS 321 CHAR NO 25 


THIS TYPEOUT INDICATES A DATA ERROR ON LINE 1 
IF CONFIGURATION 2 IS SELECTED TWO ERROR TYPOUTS MAY OCCUR 
FOR A SINGLE ERROR DEPENDING ON WHERE THE ERROR OCCURED. CON- 
FIGURATION 2 COMPARES THE DATA RECEIVED AT THE CALLED DL11-€ 
WITH THE DATA TRANSMITTED BY THE CALLED DL11-E. AND ALSO THE DATA 
RECEIVED AT THE CALLING DLIT1-E (CALLER) WITH THE DATA TRANSMITTED 
°r be CALLED DL11-E. 

FOR EXAMPLE A DATA ERROR OCURRED AT THE RECEIVER OF THE CALLING 
DLII-E CAUSING IT TO TRANSMIT INCORRECT DATA TO THE CALLED DL11-E Two 
TYPEOUTS WILL OCCUR AS SHOWN BELOW: 


PC=XXXXXX 174010 DATA S/B 301 WAS 321 ees NO 235 
PC=XXXXXX 174000 DATA S/B 301 WAS 321 CHAR NO 23 


THESE TYPEOUTS SPOW THAT THE RECEIVER ON LINE OQ WAS THF CAUSE 
OF THE ERROR AND THE RECEIVER ON LINE 1 RECEIVED THE CORRECT 
INCORRECT DATA. 


keakkaxkaxaze ECO HISTORY ‘*«xxneennne 


CHGC1 - 
CHGC2 - 
CHGC3 - 
CHGC4 - 


NEW STORAGE LOCATIONS FOR REFERENCE IN “G MODE 

CHANGE START UP FOR ENTERING SOFTWARE SWITCH REGISTER INFO. 
SOFTWARE STORAGE LOCATIONS 

ROUTINE TO CHECK PRINTOUT, UPDATE SOFTWARE SWITCH REG. 
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CHGCS - NEW MESSAGES FOR SOF *WARE SWITCH REG ROUTINES. 
CHGC6 — PART OF CHGC2. NECESSARY TO DIVIDE INTO TWO PARTS 


(PRR RRRSSSSASASASARRRRS SAR AR SRE E SS ES | 
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SEQ 0014 
-TITLE CZDLBCO DL11-E ON LINE TSET 
-ENABLE ABS, 
;THIS TEST CHECKS THE DL11-E USING MODEMS 
:REFER ALSO. TO TEST DZDLA (DL11-E OFF LINE TESTS) 
meee PROCEEDURE 
LOAD ADDRESS 200 


; STACK POINTER IS AT 1200 
: PRESS START 


AVAILABLE PROGRAMS 

PRGO- SINGLE CHARACTER LINE MODE DATA TEST. 

PRG1~ SPECIAL BINARY COUNT LINE MODE DATA TEST. 
SPECIAL MESSAGE XMIT ONLY W/W/O PARITY 
RECEIVE DATA TEST 
SPIRAL PATTERN MESSAGE XMIT ONLY W/W/O PARITY 
DATA ECHO TEST (USES FACILITY AT MAYNARD) 
Be ager SR SWITCH OPTIONS (SWITCH SET TO Al ) 

HALT ON ERROR. 
SCOPE (NOT USED) 
INHIBIT PRINTOUT 
INHIBIT TRACE (NOT USED) 
INHIBIT ITERATION (NOT USED) 
; UNASSIGNED TRAP 
SP OVERFLOW, BUS ERROR TRAP 
sRESERVED INSTRUCTION TRAP 
3 TRACE TRAP 
; TRAP TO MAP VECTOR 
:POWER FAIL TRAP 


sEMT TRAP 


>SR11- 


MACHER: 


i, : TRAP TO MAP MAKER 
EQUATE 
PSW=177776 


BIT14=4 
B1T13=20000 


] 


| 
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-MACR CNVOA = SRC,DST,COUNT 

JSR %5 ,OACNV 

SRC 

DST 

COUNT 

- ENDM 

-MACR ISR N 
RISR'N’: V #'N' ,%0 

JMP RISR 

. ENDM 

-MACR = ISRT N 
TISR'N': MOV #'N' 20 


19=JUL-79 


B1T12=10000 


DELAY=EMT+16 
N=0 
A=0 
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;POP THE STACK. SAME AS TST (6)+ 
sPOP STACK TWICE. SAME AS CMP (6)+,<6)+ 
sPRIORITY LEVEL DEFINITIONS 


";GO TO OCTAL TO ASCII CONVERT. 
CE AD 


; SO 
:DESTINATION ADDR. 
:WOF DIGITS TO CONVERT. 


;GO TO COMMON INTERRUPT SERVICE ROUTINE 


;PUT LINE # IN RQ 


SEG 0014 


C é eal 
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CZ7DLBC .P11 19 JUL~79 15:06 SEQ 0015 
258 JMP TISR ;GO TO COMMON INTERRUPT SERVICE 
$71 . ENDM 
572 
573 -MACR_ RRCV N.A 
574 173610+N sADDRESS OF RECEIVER LINE # ‘A* 
575 . END 
576 
577 MACR RBUFF N,A 
208 173612 +N sADDRESS OF RECEIVER BUFFER LINE & ‘A’ 


580 

581 TXMT N,A 

582 PSE 144N ;ADDRESS OF TRANSMITTER CSR LINE & ‘A’ 
ty . ENDM 


585 MACR TBUFF WN,A 
86 


173616 +N sADDRESS OF TRANSMIT BUFFER LINE # ‘A’ 


skekeekkeete CHGC 5 exeenennne 


5 

5 

587 

588 

589 

591 

392 

593 

594 000170 .=170 

595 000170 177570 ) SRPTR: 177570 ;SOFT SW REG POINTER 

596 000172 177570 DISPREG: 177570 :DISPLAY POINTER 

597 000174 000000 DISPLAY: OPEN ; SOFTWARE DISPLAY REGISTER 
Ha 000176 000000 SWREG: OPEN s SOFTWARE SWITCH REG 

600 

601 REAR ERCEA REA RERRERRRERR EE 

602 

603 

604 

605 000200 -=200 

606 000200 012757 001436 000312 MOV ASTART ,STAD ;SET_ UP FOR NORMAL START 

607 000206 000407 BR STCONT : CONT INUE 

608 000210 012737 001432 000312 MOV #REMAP , STAD :SET FOR A REMAP START 

609 000216 000403 BR STCONT 

610 000220 012737 002102 000312 _. MOV #MODEV , STAD ;SET TO MODIFY ON START 

611 000226 012706 001200 STCONT: MOV #STKPTR ,%6 SET BOTTOM OF STAC” 

612 SERRE E ERED 

613 000232 013746 000006 CHGC2: MOV 6,~-(SP) :SAVE CURRENT VECTOR 

614 000236 013746 000004 MOV 4,~-(SP) 

ote 000242 012737 000262 000004 MOV HOLS ars ey 57 4 FOR NON-EXISTANT 
617 000250 022777 177777 177712 CMP #-1 ,ASRPTR ;REFERENCE HARDWARE SWITCH REGISTER 
618 000256 001402 BEG 65$ IF IT = ~1, USE SOFT Sw REG 
619 000260 000407 BR 66$ ; THEN USE HARDWARE Sw REG 
620 000262 022626 64$: ‘CMP (SP)+, (SP) + ; CORRECT THE STACK. NO HDWE SW REG 
621 012737 000176 000170 65$: MOV #SWREG, SRPTR ;POINT TO SOFT SW REG 

622 000272 012737 000174 000172 MOV ADISPLAY,DISPREG ;POINT TO SOFT DISP REG 
623 012637 000004 66$: MOV (SP) +, a44 ;RESTORE VECTORS 

624 000304 012637 000006 MOV (SP) +, a6 





CZDLBCO DL11-E ON LINE TSET 
5:06 


CZDLBC.P11 


19=JUL=79 1 


000137 
001200 


MACY11 30A(1052) 


EMTTAB: 


De 
15:10 PAGE 16 


me mee we ee ee 


SEQ 0016 


; JUMP TO SELECTED START 


sRECEIVER CSR UNDER TEST 
sRECEIVER BUFFER UNDER TEST 

; TRANSMITTER CSR UNDER TEST 

; TRANSMITTER BUFFER UNDER TEST 


sRECEIVER ae 
; TRANSMITTER PRIORITY LEVEL 


TSR INTERRUPT VECTOR 

:LSR PRIORITY LEVEL 

;LSP INTERRUPT VECTOR 

sLSP PRIORITY LEVEL 

: CONTAINS CURRENT PROGRAMA 
; CONTAINS PROGRAM INDICATORS 
;PRGO START ADDRESS 

;PRG1 START ADDRESS 

:PRG2 START ADDRESS 

:PRG3 START ADDRESS 

7PRG4 START ADDRESS 

:PRGS START ADDRESS 


TO TYPEQUT ROUTINE 
ik CHAINED MESSAGES ROUTINE 


HALT 
TO ROUTINE TO SET RCVR VECTOR AND PRIORITY 


TO ROUTINE TO SET XMIT VECTOR AND PRIORITY 
TO ERROR HALT ROUTINE. 

TO SAVE REGISTERS ROUTINE 

> RESTORE a ROUT INE 


TO DELAY ROUTINE 


19=JUL-79 
SRRARAERAEAERAAKEKKEE 
"agg a(PC)+ 
-=1200 
0 
0 
; 
OPEN :RECEIVER VECTOR 
PRTY4 
EN ; TRANSMITTER VECT 
PRTY4 
177560 :LSR CSR 
177562 Ae BUFFER 
177564 LSP CSR 
177566 LSP BUFFER 
60 
PRTY4 
64 
PRTY4 
OPEN 
OPEN 
: PRGO 
PRG1 
PRG2 
PRG3 
PRG4 
PRG5S 
INCPRG 
INCPRG 
TYP sPOINTER 
TYPS sPOINTER 
OPEN -POINTER 
ERR :POINTER 
DT CHK ; POINTER 
CHLT 
STRVRV “ POINTER 
STXMTV :POINTER 
EHLT :POINTER 
SAVRG ;POINTER 
RSTRG :POINTER 
ERR1 sPOINTER 
TXERR :POINTER 
RXERR sPOINTER 
DLY :POINTER 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
0 
0 
0 
0 


FTITLE: 





ee 
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C701. BC P11 


19=JUL-79 15:06 SEQ 0017 

681 1346 000000 FNONE: 0 
682 001350 000000 FMAP 0 
683 001352 000000 TEMP1: 0O 
684 001354 000000 L INENO 
685 001356 000000 RECDAT: OPEN 
686 001360 000000 XMTDAT: OPEN 
687 001362 000000 CARMSK: OPEN 
688 001364 000000 CTRD: OPEN | 
689 001366 000000 TXCSRT: OPEN 
690 001370 000000 RXCSRT: OPEN 
691 001372 000000 TEMP: OPEN | 
692 001374 000000 SRT OPEN 
693 001376 900000 INBUFP: OPEN | 

001400 000000 BUFFP: OPEN 
695 001402 000000 CALLER: OPEN 
696 001404 000000 CALLED: OPEN 
697 001406 000000 OTBUFP: OPEN ; CONTAINS ADDRESS FROM WHERE NEXT TRAN- 
698 ZSMITTED CHAR. (CIN OUTBUF) IS TO COME 
699 001410 000000 TBUFFP: OPEN 
760 001412 000000 MODEM: OPEN ;CONTAINS MODEM TYPE 0=103,4=202 
701 001414 000000 OPEN ;CONTAINS ADDRESS FROM WHERE NEXT TRANS- 
702 sMITTED CHAR. (CALLER'S LINE) IS TO COME 
703 -kekkkkkkee CHOC] «eae keene 
704 001416 000000 COUNT? : OPEN ;LOOP COUNT FOR TEST 
705 001420 000000 CNT: OPEN ; ITERATION COUNT 

001422 000000 FILL1: OPEN ZERO FILL SWITCH 
707 001424 000000 MODE: OPEN :NUMBER OF DIGITS TO TYPE 
708 001426 000000 TEMPST: OPEN : TEMP WORK LOCATION 
709 001430 000000 TIB: OPEN ; TEMPORARY KYBD BUFFER STORAGE 
710 EEE EERE ARERR ERE EK EER ERE 
711 
712 
713 
714 001432 005037 001344 REMAP: CLR TITLE 
715 001436 012706 001200 START: MOV WSTKPTR. 16 ;SET BOTTOM OF SP STACK. 
716 001442 000005 RESET 
717 001444 005037 177776 CLR PSW 
718 001450 012737 004576 000004 MOV MERTP MACHER | 
719 001456 012737 000040 000006 MOV #40 ,MACHER+2 
720 001464 005737 001344 TST FTITLE sTITLE PRINTED 
721 001470 001145 BNE START1 sYES, SKIP THIS 
722 001472 104 TYPE 
723 001474 012576 MTITLE 
724 001476 005237 001344 INC FTITLE sSET TITLE PRINTED FLAG 
725 001502 005037 001346 CLR F NONE : sCLEAR NO DEVICE FLAG 
726 001506 012737 177777 001354 MOV #~-1,LINENO 
727 001514 012737 001564 000004 MOV #MAPNE , MACHER ;SET UP FOR NO DEVICE ANSWER 
728 001522 012737 000340 000006 MOV #PRTY7 MACHER+2 
729 001530 012704 011216 MOV #RCSR, £4 :SET UP DEVICE POINTER 
730 001534 005237 001354 MAPA: INC LINENO 
731 001540 020427 011314 : CMP %4,ARBUF LAST DEVICE 
732 4001544 001477 BEQ MAPEND VES 
733 1546 005037 177776 CLR PSW | 
734 001552 005774 000000 TST a(4) s TEST DEVICE 
735 001556 000240 NOP | 


.: 2 
ceDL aC tablet LINE TSET MACY17 30A(7052) 19-JUL-79 15:10 PAGE 18 
CZ7DLBC. 19 JUL ~79 15:06 


737 001562 000404 ; BR MAPOK 
738 001564 062704 000002 MAPNE: ADD #2 ,%4 
739 001570 022626 POPSP2 
740 001572 76 BR MAPA 
741 001574 011437 001352 MAPOK: MOV (4), TEMP) ;SAVE DEVICE FOR TYPING 
742 001600 004537 003606 JSR %5,0ACNV 
743 001604 001352 TEMP) 
744 001606 012723 MDADR 
745 001610 000006 6 
746 001612 004537 0035606 JSR %5,,0ACNV 
747 001616 001354 LINENO 
748 001620 012715 ML INE 
749 =001622 2 
750 001624 011401 MOV (4) ,%1 GET RXCSR DEVICE ADDRESS 
751 001626 004737 004762 JSR %7.,FORMAD 
752 001632 052737 000001 001350 BIS #BITO,FMAP 
753 001640 042777 000100 1773356 BIC #B1T6,aTXCSR 
754 001646 052777 000100 1772330 BIS #BIT6,aTXCSR 
755 001654 000240 NOP 
756 001656 012737 000340 177776 MOV #PRTY7,PSW 
757 001664 005737 001210 TST RXVTR 
758 001670 001406 BEQ MAPOKA 
759 001672 013701 001354 MOV LINENO,21 
760 001676 006301 ASL x1 
761 001700 013761 001210 011120 MOV RXVTR,VECTAB(1) ;STORE VECTOR 
762 001706 042777 000100 177270 MAPOKA: BIC #BIT6.aTXCSR 
763 001714 004537 0035606 JSR %5, OACNV 
764 001720 001 RXVTR 
765 001722 012735 MTRAP 
766 001724 
767 001726 104 TYPE 
001730 012715 ML INE 
769 001732 005237 001346 INC F NONE 
770 001736 062704 000002 ADD M2 .%4 
771 001742 000674 BR MAPA 
772 001744 012737 004576 Q00004 MAPEND: MOV MERTP MACHER 
773 001752 012737 000040 000006 MOV #40 ,MACHER+2 
774 001760 005737 001346 TST F NONE 
775 001764 001007 BNE START] 
776 001766 104000 MAPERR: TYPE 
777 001770 012745 MNONE 
778 001772 005037 001344 CLR FTITLE 
779 001776 000000 HALT | 
780 002000 000137 001436 JMP START 
781 LERARERERAERERERR EER 
782 002004 CHGC6: 
783 022737 000176 000170 START1: CMP #SWREG, SRPTR :I1S SOFT SWREG SELECTED 
784 002012 001015 BNE 60$ 7 IF NOT, BR OVER NEXT OPER 
785 002014 004737 910464 ; JSR PC,CNILU SOFT SW REG. INPUT ROUT INE 
786 002020 013701 001230 MOV TKVTR,RI 
787 002024 012721 010712 MOV MTTINTS, (R1)+ ;VECTOR ADDRESS TO LOC 60 
788 002030 013721 001232 MOV TKLVL,(R1)+ =PRIORITY iad LOC 62 
789 002034 005777 177162 TST alKB sCLEAR DONE FLAG 
790 002040 012777 000100 177152 MOV #100, aTKS SET TTY INTERRUPT ON 


791 RRR HERA ARARREKRARAR 


792 002046 005037 177776 60$: CLR PSW 


C20 
¢ 


793 


SSSIF32 


pear eh ofr ferer 4 
ah eb bd a eed nb od ad aod 
OOONAUFSwWwr-O 


821 


LBCO 
7D. BC 


003372 


177770 
001240 


001244 
001200 
177776 


003372 
177740 
000636 


003372 
000001 


011216 
000002 
011314 
000002 
011472 
000002 
011510 


003372 
177777 


001 344 
001456 


MACY?? 30A(1052) 


MODE V : 


C 
MODEV1: 


MODE V2: 


JSR 


MODE V3: 


19=JUL-79 


PC .RDOCT 
(SP) +. %0 
#177770, %0 
%0.PRGNUM 
%0 
aPRGTAB(0) 
ASTKPIR, %6 


PS 
PC .RDOCT 
(SP), %0 
#177740. %0 
%0 


(SP) +, 436 
MODE V2 


MODE V1 


T 
#BITO, (SP) 
MODE Vv $ 


PC RDOCT | 
(SP)+,.4177777 
MODE V 


Evi 
FTITLE 
START 


“EMT TRAP INTERPRETER 





G 2 
15:10 PAGE 19 


:GET INPUT 


;(SR) TO RO 
sLIMiT (SR) TO BITS 2-0 
; SAVE PROGRAM # 


;ROX2 
:GO TO SELECTED. PROGRAM, 


;GET INPUT 


;BRANCH IF > 36 


3GET INPUT 


SAVE DEV ADR 


UPDATE DEV ADR 
;UPDATE DEV ADR 


:UPDATE DEV ADR 


GET INPUT 


A 
a ae RE RR EE EE LL TL IL LS NL LT ET 
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ZDLBC .P11 19=JUL=79 15:06 


R49 Pe 011646 EMTINT: MOV @%6,-(6) :GET SAVED PC. 

850 002302 162716 000002 SUB #2,a%6 :DECREMENT PC BY 2. 

851 002 017616 Q00000 MOV a(6) ,a%6 

852 002312 006116 EMTA: ROL a%6 sEMT ARG X 2. 

853 002314 042716 177001 BIC #177001 ,a%6 sREMOVE 7 MSB. 

854 002520 062716 001264 ADD #EMTTABR, a%6 >FORM EMT RTN ADDR. 

855 002324 017616 000000 MOV a(6) ,a%6 

ae9 002330 000136 JMP a(6)+ :GO TO EMT ROUTINE. 

858 SAVE REGS 0 TO 4 SUBROUTINE. 

859 002332 012637 002366 : MOV (6)+,SVRPC ; SAVE PC AND PSwW. 

860 2336 012637 002370 MOV (6)+,SVRPSW 

861 002342 010446 MOV 44 ,~(6) ;SAVE REGS 0 - 4 

862 002344 010346 MOV %3,-(6) :IN STACK. 

863 002346 010246 MOV %2,-(6) 

864 002350 010146 MOV Z1,7~(6) 

865 002352 010046 MOV %0,-(6) 

866 002354 013746 002370 MOV SVRPSW,- (6) sRESTORE PC AND PSw. 

867 2 013746 002366 MOV SVRPC ,-(6) 

868 002364 000002 RT] sEXIT. 

869 002 000000 SVRPC: OPEN 

a 002370 000000 SVRPSW: OPEN 

872 sRESTORE REGS 0 TO 4 SUBROUTINE. 

873 002372 012637 002426 RSTRG: MOV (6)+,RSTPC :SAVE PC AND PSw. 

874 002376 012637 002430 MOY (6)+, RSTPSW 

875 002402 O12 MOV (6)+,20 sRESTORE REGS 0 - 4 

876 24 012601 MOV (6)+,21 :FROM STACK. 

877 002406 012602 MOV (6)+,%2 

878 002410 012603 MOV (6)+,2%3 

879 002412 2604 MOV (6)+,%4 

880 002414 013746 002430 MOV RSTPSW,-(6) :RESTORE PC AND PSw. 

881 002420 013746 002426 MOV RSTPC,-(6) 

882 002424 RT] sEXIT 

883 002426 RSTPC: OPEN 

884 002430 RSTPSW: OPEN 

885 002432 104 INCPRG: TYPE > TYPE INCORRECT PROGRAM SELECTED. 
886 002434 014121 AINPRG 

887 0024356 HALT 

888 002440 000137 001436 JMP START 

889 | : COMMON HALT ROUTINE 

890 002444 011600 CHLT: MO'’ axz6,% sDEVELOP ADDRESS OF CALLER. 
891 002446 162700 000002 SUB #2, 

892 002452 000000 HALT sHALT. ADDRESS OF CALL INSTRUCTION 
ze 002454 000002 RTI > IN DATA LIGHTS. 

895 ; CONDI TONAL ERROR HALT ROUTINE. 

896 002456 005777 175506 EHLT TST aSRPTR > CHECK FOR HALT ON ERROR. 
897 002462 100001 BPL EHLTA “BRANCH IF NO HALT DESIRED. 
898 002464 000000 HAL T sHALT. 

en 002466 000002 EHLTA: RT] -IN DATA LIGHTS. 

901 “DATA CHECK ROUTINE. 

902 002470 3737 001362 001360 DTCHK: BIC CARMSK, XMTDAT :CLEAR UNTRANSMITTED BITS 
903 002476 123737 0014556 001360 CMPB RECDAT , XMTDAT - COMPARE TRANSMITTED AND RECEIVED 
904 25 001430 BEQ DT CHKA >; CHARS. BRANCH IF SAME. 





ace LOLOL LE LLL A OT = 7 
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C7DLBC.P11 Seah 79 15:06 SEQ 0021 
905 002506 CNVOA  RECDAT,CWAS,3 
906 002520 CNVOA  XMTDAT.CSB, 3 
907 002532 CNVOA  RXCSR,CSRADD,6 
908 002544 104013 ERROR1 
909 002546 013126 CSRADD 
910 002550 004537 004274 JSR 5 ,BDCNV = CONVERT 
911 002554 001364 CTRD “CHAR # 
912 002556 014112 CRNUM “TO DECIMAL 
915 2560 4 4 74 BITS 
914 002562 104013 ERROR 
915 002564 014047 CERDAT 
ars 002566 000002 DICHKA: RT] : EXIT. 
918 002570 012737 177777 002702 ERR: MOV #-1,ERRB :SET UP ONE MESSAGE CALL. 
919 002576 012737 009240 002704 MOV #240, ERRB+2 
920 002604 005037 002722 CLR ERRE 
921 002610 000413 BR ERRA 
922 002612 011637 002702 ERR1: MOV @%6, ERRB :DEVELOP ADDT'L MESSAGE ADDR. 
923 002616 017737 000060 002702 MOV @ERRB,ERRB “STORE AT ERRB. 
924 002624 012737 177777 002704 MOV #-1, ERRB* +2 
925 002632 012737 000002 902722 MOV #2,E 
926 002640 032777 020000 175322 ERRA: BIT mirs, @SRPTR ;INHIBIT ERROR PRINT? 
927 002646 001020 BNE ERR *BRANCH TO INHIBIT PRINT. 
928 002650 011637 002720 MOV axe, ERRD :DEVELOP CALLING ADDR. 
929 0026054 162737 000002 002720 SUB #2, ERRD 
002662 ERRD.APC.6 :CONVERT CALL ADDR TO ASCII. 
931 002674 104011 SAVREG 
932 002676 104001 TYPES > TYPE : 
933 002700 013176 EMO :ERROR HEADER, 
002702 000000 ERRB: OPEN -ADDT"L ERROR MESSAGE IF ANY. 
935 002704 177777 =] 
936 002706 104012 RSTREG 
937 002710 104010 ERRC: EHALT :GO ERR HALT IF DESIRED. 
938 002712 063716 002722 ADD ERRE , a%6 
939 002716 000002 RT] sEXIT. 
940 002720 000000 ERRD: OPEN 
ee 002722 000000 ERRE: OPEN 
943 sPOWER FAIL SERVICE 
944 002724 012737 002734 000024 PFAIL: MOV #PWRUP , 2424 
945 002732 000000 HALT 
946 002734 012737 002724 000024 PWRUP: MOV MPFAIL , 3424 
947 002742 000005 RESET 
948 002744 012706 001200 MOV ASTKPTR, 26 
949 002750 104000 TYPE 
950 002752 015073 MPWRF 
951 002754 013700 001240 RESTRT: MOV PRGNUM , Z0 
952 002760 006300 ASL 
oar 002762 000170 001244 JMP @PRGTAB(O) 
955 002766 TXERR: CNVOA  TXCSRT, ATXWAS . 6 :CONVERT CONTENTS OF TXCSR TO ASCII: 
956 003000 012737 013214 003104 MOV WAIXCSR, CRX TXB 
957 003006 000410 BR CRXT 
958 003010 RXERR: CNVOA RXCSRT. ARXWAS 6 :CONVERT CONTENTS OF RXCSR TO ASCII. 
959 003022 012757 013235 003104 MOV #ARXCSR, CRX 


960 003030 011637 003102 CRXTX: MOV @%6, CRXTXA ;DEVELOP ADDR OF ADDTT"L ERROR MESSAGE. 
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S 
IN 
wt 
N 


LINE 


TSET 


UL-79 15:06 


000042 
020000 


002720 
000002 


000002 


000000 
000002 
001210 
900000 
001212 


000000 
000002 
001214 
000000 
001216 


003370 
000002 


003520 
000100 


003370 
000045 
003254 


003320 
175736 


000015 
003254 
000012 
003254 


MACY11 30A(1052) 


003140 


003170 


003520 


003320 


175744 


003320 
003320 


CRXTXA: 
CRXTXB: 


CRXTXC: 


=ROUTINE TO SET 


STRVRV: 


STPRA: 


J 2 
15:10 PAGE 22 


19=JUL-79 
MOV @CRXTXA,CRXTXA 
BIT #B1113,@SRPTR ;INHIBIT PRINT? 
BNE CRXTXC :BRANCH TO INHIBIT PRINT. 
MOV @%6,ERRD ;DEVELOP CALLING ADDR. 
SUB #2,ERRD 
CNVOA ERRD,APC,6 gel CALLING ADDR TO ASCII. 
TYPES TYPE ERROR MESSAGE. 
EMO “ERR HEADER 
OPEN :ADDT"L ERR MESSAGE 
_ :TXCSR OR RXCSR CONTENTS. 
EHALT 3GO HALT IF DESIRED. 
ADD #2,a%6 
RTI ERI T 

RECEIVER INTERRUPT VECTOR AND PRIORITY 

MOV (6) ,STPRA+2 sMOVE VECTOR ADDR TO STPRA+2 
ADD #2,0%6 :SET UP EXIT 
MOV RXVTR,21 
MOV #OPEN, (1) + ;SET VECTOR oe 
Aad RXLVL,(1)+ at PRIORIT 


“ROUTINE TO SET 


STXMTV: MOV a(6),STPPA+2 | :MOVE VECTOR ADDR TO STPPA+2 
ADD #2,a%6 =SET UP EXIT 
MOV TXVTR, 21 
STPPA: MOV N.(1)+ :SET VECTOR ADDRESS. 
MOV TXLVL.(1)4 >SET PRIORITY 
RTI “EXIT. 
> SUBROUTINE TO OUTPUT ASCII MESSAGE ON TELETYPE PRINTER. 
TYP: | MOV %0 ,SAVRO >SAVE R 
MOV a%6, 20 :GET ADDRESS THAT CONTAINS MESSAGE ADDRESS. 
ADD #2, a%6 >SET UP EXIT 
MOV az0, 20 ‘ADDRESS OF MESSAGE TO RO. 
TYPA: MOVB  (0)+,TYPDAT =GET CHARACTER 
CMPB  —s- #100. TYPDAT CHECK FOR’ a’ CHARACTER 
BNE TYPC “BRANCH IF NOT''‘a’’. 
MOV SAVRO, %0 sRESTORE RO 
RT] ; TERMINATOR CHAR. DONE. EXIT. 
TYPC: (MPB #45, TYPDAT “CHECK FOR''2"'. 
BEQ TYPF “BRANCH IF''X'* 
JSR 27 ,TYPD :TYPE CHAR IN TYPDAT 
TYPD: TYPDAT .aTPB -QUTPUT CHARACTER TO PRINTER 
TSTB TPS “WAIT FOR DONE FLAG. 
BPL -o 
RTS 47 SEXIT 
TYPF: MOVB  #15,TYPDAT “MOVE CARRIAGE RETURN CODE TO TYPDAT 
JSR 47. TYPD "GO TYPE 
MOVB  #12,TYPDAT :MOVE ike CODE TO TYPDAT. 
JSR 47, TYPD “GO TYPE CHAR. 
BR TYPA 
TYPDAT: 


TRANSMITTER INTERRUPT VECTOR AND PRIORITY. 


OPEN 
; SUBROUTINE TO OUTPUT A SERIES OF ASCII MESSAGES ON TELETYPE PRINTER 


SEQ 0022 





eet | 


A 
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1017 003322 010037 003370 TYPS: MOV %0, SAVRO 

1018 003326 011600 TYPSAA: MOV a%6,%0 :GET ADDRESS THAT CONTAINS ME SSAGE ADDRESS 
1019 003330 062716 000002 ADD #2, a%6 “UPDATE TO NEXT MESSAGE ADDRESS 
1020 003334 011037 003364 MOV a%0, TYPSB “ADDRESS OF MESSAGE TO TYPSB 
1021 003340 022737 177777 003364 CMP #-1_TYPSB “CHECK FOR TERMINATOR 

1022 003346 001003 BNE TYPSA “BRANCH IF NOT TERMINATOR. 
1023 003350 013700 003370 MOV SAVRO, %0 sRESTORE RO 

1024 003354 000002 RTI : TERMINATOR, EXIT 

1025 003356 013700 003370 TYPSA: MOV SAVRO, Z0 

1026 003362 104000 TYPE :CALL ON TYP SUB TO TYPE MESSAGE 
1027 003364 000000 TYPSB: OPEN “ADDRESS OF MESSAGE GOES HERE 
1028 003366 000757 BR TYPSAA -GO PROCESS NEXT MESSAGE 

1029 003370 000000 SAVRO: OPEN 

1031 ; SUBROUT INE TO READ OCTAL DATA FROM THE TELETYPE PRINTER 

1032 003372 011646 RDOCT: MOV (SP) ,-(SP) :MAKE ROOM FOR DATA WORD 

1033 003374 010046 MOV %0,-(SP) = SAVE RO 

1034 003376 010146 MOV %1,-(SP) “SAVE R1 

1035 003400 005001 INDAT: CLR 41 *CLEAR DATA WORD 

1036 003402 005037 001324 CLR COUNT =SET NO. OF DIGITS = 0 

1037 003406 105777 175606 RDDAT: TSTR  atkS ;TEST TTY READ STATUS 

1038 003412 100375 BPL RDDAT WAIT 

1039 003414 117746 175602 MOVB = aTKB,-~(SP) “PUSH DIGIT ON STACK 

1040 003420 042716 000200 BIC #B1T7, (SP) 

1041 003424 105777 175574 ECDAT: TSTB  aiPS :TEST TTY PRINT STATUS 

1042 003430 100375 BPL ECDAT “WAIT 

1043 003432 111677 175570 MOVB (SP) ,aTPB *ECHO CHARACTER 

1044 003436 122716 000015 | CMPB—s«#'15,, (SP) -IS IT A TERMINATOR? 

1045 003442 001432 BEQ RETRN “BR IF YES 

1046 003444 122716 000177 CMPB —s #177, (SP) -IS IT A RUBOUT? 

1047 003450 001423 BEQ RREAD “BR IF YES 

1048 003452 122716 000060 CMPB  —s- #60, (SP) -1S IT AN OCTAL DIGIT? 

1049 003456 003020 BGT RREAD :BR IF NO 

1050 003460 122716 000067 CMPB —s_- #67, (SP) = TEST AGAIN 

1051 003464 002415 BLT RREAD :BR IF NO 

1052 003466 005237 001324 INC COUNT -INC NO. OF DIGITS 

1053 003472 022737 000067 001324 CMP #67, COUNT “MORE THAN SIX DIGITS? 

1054 003500 003407 BLE RREAD “BR IF YES 

1055 003502 006 ASL 41 “CLEAR LOWEST THREE BITS 
1056 003504 006301 ASL 21 “OF DATA WORD 

1057 003506 006301 ASL “1 

1658 003510 162716 000060 SUB #60, (SP) : CONVERT TO BINARY 

1059 003514 062601 | ADD (SP)+,%1 “ADD DIGIT TO DATA WORD 

1060 003516 000733 BR RDDAT *GET NEXT DIGIT 

1061 003520 104000 RREAD: TYPE >TELL USER ABOUT ILLEGAL CHARACTER 
1062 003522 014001 DTERR 

1063 003524 005726 TST (SP) + :GET RID OF ILLEGAL CHARACTER 
1064 003526 000724 BR INDAT “START SUBROUTINE AGAIN 

1065 003530 010166 000010 RETRN: MOV %1,10(SP) *STORE DATA WORD ON STACK 
1066 003534 005726 TST (SP)+ -INC STACK POINTER 

1067 003536 012601 MOV (SP) +,%1 “RESTORE R1 

1068 003540 012600 MOV (SP) +. %0 “RESTORE RO 

1069 003542 000207 RTS PC “RETURN 

1071 = SUBROUTINE TO DELAY A SPECIFIED NUMBER OF MILLISECONDS 


1072 003544 011637 003604 DLY: MOV @%6,DLCNT ;GET DELAY COUNT ADDRESS. 





CZDi.BCO DLII-E 
C2 


DLBC .P11 


1073 
1074 
1075 
1076 
1077 
1078 


° 
r 


BSLRFESSISSSSRGSATES 


en ee ee ee ee ee eee 
elelelele) 
RARASLS 


=) 
a | 


017746 
001407 


ON LINE TSET 
19=JUL-79 15:06 


062716 


000002 
000024 


000226 
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19-JUL-79 
ADD #2,a%6 :SET UP EXIT ADDRESS 
MOV @DLCNT,-(6) “DELAY COUNT TO STACK 
BEQ DLYC 
MOV #226,-(6) :1 MSEC COUNT TO STACK 
DEC a%6 “DECREMENT 1 1 MSEC COUNT 
BNE DLYB “BRANCH IF NOT O. 
POPSP - ZERO. UNCOVER MSECS. COUNT. 
DEC a%6 “DECREMENT IT 
BNE DLYA “BR IF NOT DONE DELAYING 
POPSP 
RT] sexIT. 
OPEN “CONTAINS MILLISECONDS COUNT ADDRESS. 
CONVERT ROUTINE 
SAVREG :SAVE REGS. 
MOV a(5)+,%0 =GET OCTAL VALUE. 
MOV (5)+,%1 -GET DESTINATION ADDR. 
MOV (5)+,%2 -GET CONVERT COUNT. 
ADD %2,%1 -DEVELOP ADDR TO STORE 1ST CHAR. 
MOV 10,23 
BIC #177770,%3 : ISOLATE LEAST SIGNIFICANT DIGIT. 
ADD #60,%3 -CONVERT DIGIT TO ASCII. 
MOVB %3,-(1) -STORE ASCII CHARACTER. 
BIC #7 .% 
ROR %0 
ROR x0 
ROR 20 
DEC 2 :DONE ALL DIGITS? 
BNE OACNVA “BRANCH IF NOT DONE. 
RSTREG -RESTORE REGS. 


EXIT. 


RTS x5 ; DONE. 
; SUBROUTINE TO GENERATE PARITY ON DATA FOR 5.6.7.8 LEVEL CODE. 


:PARITY BIT IS THE MSB OF THE CHARACTER PARITY CAN 


sEVEN OR ODD 
:GENERATES ODD/EVEN PARITY. 


BE EITHER 
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ON LINE TSET 
19=JUL-79 15:06 


000200 
000100 
000040 
000200 
000007 
177600 
000040 
000005 
177740 
000100 
000006 
177700 
000020 
000004 
177760 
001326 


001324 
000040 


001322 
001326 


001322 


003372 
177407 
001372 
001200 
000004 
011216 
000002 
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001362 
001362 
001362 


001322 
001324 


001322 
001324 


001322 
001324 


001322 
001324 


001574 
001326 


001526 


GENPAR: BIT #BIT7,CARMSK | :TEST LSB CHAR LENGTH 
BEQ EIGHT “CHAR IS 8 
BIT #BIT6,CARMSK § :TEST MSB CHAR LENGTH 
BEQ S “CHAR LENGTH IS 7 
BIT #B1TS, CARMSK 
BEQ SIX 
BR FIVE 
EIGHT: MOV WRIT7,PARBIT | ;:PLACE PARITY BIT IN PROPER POSITION 
MOV # “SET UP ROTATE COUNTER=7 
BIC #177600, %1 -MASK OFF UNUSED BITS 
BR DOIT -GO AND GENERATE PARITY FOR 8 
SIX: MOV WBITS,PARBIT  =PLACE PARITY BIT IN PROPER POSITION 
MOV #5, COUNT “SET UP ROTATE COUNTER=5 
BIC #177760, %1 :MASK OFF UNUSED BITS 
BR DOIT =GO AND GENERATE PARITY FOR 
SEVEN: MOV #81T6,PARBIT *PLACE PARITY BIT IN PROPER POSITION 
MOV #6,C *SET UP ROTATE COUNTER=6 
BIC #177700, %1 =MASK OFF UNUSED BITS 
BR DOIT *GO AND GENERATE PARITY FOR 7 
FIVE: MOV WBIT4.PARBIT §=:PLACE PARITY BIT IN PROPER POSITION 
MOV #4, COUNT *SET UP ROTATE COUNTER=4 
BIC #177760, %1 :MASK OFF UNUSED BITS 
BR DOIT =GO AND GENERATE PARITY FOR 
DOIT: MOV %1, SAVE =SAVE DATA 
AGAIN: ROR %1 “ROTATE DATA 
BCS ADD1 7IF CARRY SET ADD IN PARBIT 
RTN: DEC COUNT =DECREMENT COUNTER 
BNE AGAIN :NOT DONE DO IT AGAIN 
BIT #BITS.SRT :DONE EVEN OR ODD PARITY? 
BEQ 7 IF EVEN FINISHED 
ADD PARBIT, SAVE -IF ODD ADD IN ANOTHER 1 
DONE: MOV SAVE , 21 “PLACE DATA + PARITY BACK IN R1 
RTS ZAND EXIT 
ADD1: ADD PARBIT, SAVE :ADD PARBIT TO DATA 
BR RTN *RETURN TO COUNTER 


; SUBROUTINE TO SELECT LINE AND LOAD VECTOR ASSIGNMENT 
LINSEL: “ee 


JSR PC ,RDOCT :GET INPUT 
MOV (SP) +,%1 sLOAD R1 
BIC #177607, %1 :MASK OFF ALL BUT LINE BITS 
ASR %1 
ASR 21 
MOV %1, TEMP sSAVE LINE @ 
MOV WRXCSR, %3 *LOAD ADDRESS OF REGISTERS 
MOV #4, -SET UP COUNTER 
MOV RCSR(1) ,%2 
LINSA: MOV %2,(3)+ 
ADD #2,%2 
DEC 14 
BNE LINSA 
MOV VECTAB(1) ,%1 3GET LINE VECTOR ADDRESS 
MOV %1, (3)+ “LOAD INTO PROG. RXVTR 
CMP (13+, (1)+ “ADD +4 TO RXVIR TO = TXVTR 


eee et LE DELL LL 


ee 
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CZDLBC 
1013 CZDLBC .P11 19=JUL-79 15:06 SEQ 0026 
1164 004156 005723 TST (3)+ :POINT TO PROG TXVTR 
1165 004160 010113 MOV %1,(3) ;LOAD INTO PROG TXVTR 
1166 004162 022737 000005 001240 CMP #5 PRGNUM “RUNNING PROGRAM # 5 
1167 004170 001001 BNE +6 
1168 004172 000205 RTS 5 -RETURN TO PROG 5 
1169 004174 006237 001372 ASR TEMP POSITION 
1170 004200 CNVOA ‘TEMP. TLINEX,2 
1171 006212 104000 TYPE s TYPE LINE & THAT 
1172 004214 014433 AL INEX “WAS CALLED 
1173 004216 000205 RTS 5 
1175 : SUBROUTINE TO LOAD BINARY COUNT PATTERN INTO OUTPUT BUFFER 
1176 004220 105037 001334 INFIL: CLRB NUMBER : INITIALIZE BINARY COUNT 
1177 004224 012500 FILL: MOV (5)+,%0 *GET ADDRESS 
1178 004226 012537 001364 MOV (5)+-CTRD +» GET COUNT 
1179 004232 113720 001334 FILLA: MOVB NUMBER, (0)+ “LOAD ADDRESS WITH BINARY COUNT 
1180 236 105237 001334 INCB NUMBER ‘INC. BINARY COUNT 
1181 004242 005337 001364 DEC CTRD “DEC. COUNT 
1182 004246 001371 BNE FILLA 
1183 004250 000205 RTS % EXIT 
1185 ; SUBROUT INE TO MOVE A VARIABLE NUMBER OF BYTES. 
1186 004252 104011 BMOVE: SAVREG :SA 
1187 004254 012501 NOV (5)+,%1 GET FROM ADDRESS 
1188 004256 012502 MOV (5)+,%2 ‘cr’ TO’ ‘ADDRESS 
1189 004260 012503 MOV (5)+.%3 =GET COUNT 
1190 004262 112122 BMOVA: MOVB (1)+.(2)+ “MOVE BYTE 
1191 004264 005303 DEC 13 =DECREMENT COUNT 
1192 004266 001375 BNE BMOVA “BRANCH IF NOT DONE. 
1193 004270 104012 RSTREG “RESTORE REGS. 
1194 004272 000205 RTS “5 [DONE EXIT 
1196 “BINARY TO DECIMAL ASCII CONVERT SUBROUTINE. 
1197 004274 104011 BDCNV: SAVREG : SAVE REGS. 
1198 004276 012700 004452 MOV #DECVAL .. 20 *SET UP ADDR TO STORE DECIMAL ASCII IN RO 
1199 004302 013501 MOV a(5)+,2%1 “BINARY VALUE TO R1. 
1200 004 012537 004362 MOV (5) +, BDCNVC “DESTINATION ADDR TO BDCNVC. 
1201 004310 012537 004 MOV (5) +, BDCNVD *COUNT TO BDCNVD. 
1202 004314 012702 004440 MOV WADTENP,, %2 [ADDR OF TEN POWER STRING TO R2. 
1203 004320 012737 000005 004432 MOV #5,CNVCTR :SET UP FOR 5 POWER CONVERSIONS. 
1204 004326 012237 004436 BDCNVA: MOV (25+, TENPWR “MOVE POWER OF TEN VALUE TO TENPWR. 
1205 004332 7 004372 JSR %7, SUBTEN “PERFORM CONVERSION 
1206 336 005337 004432 DEC CT “DONE 5 CONVERSIONS? 
1207 004342 001371 BNE BDCNVA “BRANCH IF NOT YET 5. 
1208 004344 004364 SUB BDCNVD , XO ;SET UP ADDR TO MOVE DECIMAL 
1209 004350 010037 004 MOV 20. BDCNVB TA FROM. 
1210 006354 004252 JSR 5 -BMOV MOVE DECIMAL DATA TO DESTINATION. 
1211 004360 000000 BDCNVB: OPEN 
1212 004362 000000 BDCNVC: OPEN “DEST ADDR. 
1213 004364 000000 BDCNVD: OPEN > COUNT. 
1214 004 104012 RSTREG SRESTORE REGS. 
1215 004370 000205 RTS “5 EXIT. 
1216 004372 005037 004434 SUBTEN: CLR DIGIT “CLEAR DIGIT 
1217 004376 163701 004436 SUBTNA: SUB TENPWR, %1 “SUBTRACT TEN POWER FROM BINARY VALUE. 
1218 004402 103403 BCS SUBTNB “BRANCH IF UNSUSCESSFUL SUBTRACTION. 
1219 004404 005237 004434 INC DIGIT 
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040 
040 


001362 
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601362 
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001362 


001336 
177776 


SUBTNB: 


CNVCTR: 


DIGIT: 
TENPWR : 
ADTENP: 


DECVAL : 


19=JUL=-79 
BR SUBTNA 
ADD TENPWR , 41 
ADD #60,DIGIT 
MOVB DIGIT, (0)+ 
RTS %7 
OPEN 
OPEN 
OPEN 
10000 
1000. 
100. 
10. 
1 
-BYTE 


B 3 
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;RESTORE SUBTRACTED VALUE. 
sCONVERT (DIGIT) TO ASCII 
sMOVE ASCII CHAR TO DECVAL FIELD. 


EXIT. 


040,040,040,040,040,040 
; SUBROUTINE TO SET CHARACTER LENGTH PARAMETER 


SETPAR: TYPE 
SELPAR 
JSR PC ,.RDOCT 
MOV (SP)+,SRT 
CNVOA = SRT, APARM, 3 
TYPE 
PARMTS 
TBIT1: MOV #177400, CARMSK 
BIT #B1T1.SRT 
BEQ STPARA 
MOV #177700, CARMSK 
BIT #B1TO.SRT 
BEQ PARE X 
MOV #177740, CARMSK 
PAREX: RTS %7 
STPARA: BIT #B1TO,SRT 
BEQ STPARA~2 
MOV #177600, CARMSK 
BR PAREX 
sERROR TRAP 
ERTP: MOV PSW,OLDPS 
MOV #PRTY7,PSW 
ASR DPS 
ASR OLDPS 
ASR OLDPS 
BIC #177740, 0LDPS 
MOV OLDPS, TOPC 
MOV @%6,FROMPC 
ERTPA: JSR 5 ,OACNV 
TOPC 
oe 
JSR %5,0ACNV 
FROMPC 
MF ROM 
TYPE 
MTERR 


;TYPE: SELECT PARAMETERS. 
;GET INPUT 


;SET CHARACTER MASK TO 8 BITS. 


sSEE IF SR Git 7 IS SET. 
;BRANCH IF NOT SET. 

; CHANGE CHAR MASK TO 6 BITS. 
;SEE if SR BITO IS SET. 
;BRANCH IF NOT SET. 

; CHANGE CHAR MASK TO 5 BITS. 


sSEE IF SR BITO IS SET. 
;BRANCH IF NOT SET. 
> CHANGE CHAR MASK TO 7 BITS. 


HANDLER - TYPE TO AND FROM WHERE ERROR TRAP OCCURS 


;SAVE OLDPS 


SEQ 0027 


E -2 | 
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CZDLBCO DL11-E ON LINE TSET MACY11 30A(1052) 19=JUL-79 
CZ2DLBC.P11 19=JUL-79 15:06 SEQ 0028 

1276 004700 000137 001436 JMP START 

1278 sMAPVEC ~— MAP VECTOR VECTOR OR REPORT FR8RUR DEPENDING ON FMAP FLAG 

1279 004704 011637 001340 MAPVEC: MOV a%6, TOPC 

1280 004710 022626 POPSP2 

1281 004712 011637 001342 MOV @%6 . FROMPC 

1282 004716 162737 000004 001340 SUB #4, TOPC 

1283 004724 005737 001350 TST F 

1284 004730 00174 BEQ ERTPA sNOT MAPPING, REPORT ERROR 

1285 004732 013737 001340 001214 MOV TOPC,TXVTR ;STORE VECTOR 

1286 004740 162737 000004 001340 SUB #4, TOPC 

1287 004746 013737 001340 001210 MOV TOPC ,RXVTR 

1288 004754 005037 001350 CLR FMAP 

1289 004760 000002 RTI 

1291 “FORMAD - FORM DEVICE AT ADDRESS 

1292 004762 010137 001200 FORMAD: MOV %1,RXCSR 

1293 004766 062701 2 ADD #2,%1 

1294 004772 010137 001202 MOV %1 < RXBUF 

1295 004776 062701 2 ADD #2,%1 

1296 005002 010137 001204 MOV %1.TXCSR 

1297 005006 70 2 ADD #2,%1 

1298 005012 010137 001206 MOV %1. TXBUF 

1299 5016 00020 RTS 47 

1301 > SUBROUTINE TO MAKE LINE CONNECTION. 

1302 005020 017737 174154 001370 LINCON: MOV @RXCSR.RXCSRT 

1303 005026 032737 020000 001370 BIT WBIT13.RXCSRT  :YES, IS CLEAR TO SEND UP 

1304 005034 001046 LINEUP >YES CONNECTION IS MADE. 

1305 005036 042777 000146 174134 LINCA: #146, aRXCSR “CLEAR IE BIT AND DTR, RQ TO SND 

1306 005044 005777 174132 @RXBUF =CLEAR DONE FLAG 

1307 005050 104 : TYPE 

1308 005052 014020 > "MAKE LINE CONNECTION’ 

1309 005054 017737 174120 001370 LINCB: @RXCSR,RXCSRT 

1310 005 032737 040000 001370 WBRIT14.RXCSRT  =DID YOU RING 

1311 005070 00177 LINCB *GO WAIT FOR RING 

1312 005072 052777 000006 174100 #6, aRXCSR =SET DTR, RQ TO SND 

1313 005100 104016 “WAIT 10 SECONDS FOR 

1314 005102 023420 *CLEAR TO SEND 

1315 005104 017737 174070 001370 @RXCSR,RXCSRT 

1316 005112 005777 174064 :CLEAR DONE 

1317 005116 032737 020000 001370 WRIT13,RXCSRT :1S CLEAR TO SEND UP? 

1318 005124 00100 LINCF “YES, TO LINCF 

1319 126 104015 ; “NO. PRINT ERROR MESSAGE 

1320 005130 014146 ="CLEAR TO SEND NOT SET' 

1321 005132 741 LINCA *START OVER AGAIN 

1322 005134 017737 174040 001370 LINCF: @RXCSR,RXCSRT  :CLEAR ALL FLAGS 

1323 005142 005777 174034 ST @RXBUF “AND DONE 

1324 1 04 TYPE = TYPE MESSAGE 

1325 005150 014176 LINMAD “CONNECTION IS MADE 

1326 005152 2 LINEUP: RTS 5 “EXIT LINE CONNECTION ROUTINE WITH 

1327 - SUBROUTINE TO OVERLAY <CRLF> IN DATA PATTERN (EVERY 72.ND CHAR) 

1328 005154 012701 015512 OVRLAY: MOV #OUTBUF , %1 :GET OUTBUF ADDRESS 

1329 005160 012702 000016 MOV #14,.%2 “GET COUNTER 

1330 005164 012711 105215 OVRLYA: MOV #105215, (1) “INSERT CRELF 

1331 005170 062701 000110 ADD #72. ,%1 “ADD OFFSET 


TT NL RN I 
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| 
1332 005174 005302 DEC %2 : DONE ? 
1333 005176 001372 BNE OVRLYA | 
aac 005200 0002 7 sEXIT 
1336 >RECEIVER INTERRUPTS COMMON HANDLER 
1337 005202 000240 RISR: NOP 
1338 005204 010037 001330 MOV %0,LINE 
1339 005210 006300 ASL x0 
1340 005212 016037 011216 001200 MOV RCSR(O),RXCSR  ;GET ADDRESS OF INTERRUPTING DL11-E°S RCSR 
1341 005220 017737 173754 001370 MOV @RXCSR,RXCSRT  ;GET CSR CONTENTS 
1342 005226 100570 BM] DCERR ; CHECK INT 
1343 0052 105737 001370 TSTB RXCSRT :; TEST DONE 
1344 005234 BNE RISRA 
1345 005236 104003 ERROR :FALSE INTERRUPT 
1346 005240 000002 RT] EXIT 
1347 005242 020037 001404 RISRA: CMP %0, CALLED :DID CALLED LINE INTERRUPT? 
1348 005246 001020 BNE RISRB “BRANCH IF CALLER INTERRUPTED 
1349 005250 005737 001412 TST MODEM ; CHECK MODEM TYPE 
1350 905254 001403 BEQ RISRAA BRANCH IF 103 
1351 005256 005770 011314 TST @RBUF (0) *READ CALLED LINES DATA 
1352 005262 000002 RTI 
1353 005264 117077 011314 174104 RISRAA: MOVB @RBUF (0) .aINRUFP;:STORE CHARACTER IN INPUT BUFFER 
1354 005272 005237 001376 INC INBUFP : INCREMENT POINTER 
1355 005276 022737 017626 001376 CMP # INBUF +100. , INBUFP: HAVE 100. CHARACTERS BEEN RECEIVED? 
1356 005 BEQ RISRC :G0 CHECK DATA IF YES 
1357 005 RTI “EXIT IF NO 
1358 005310 117077 011314 174062 RISRB: MOVB @RBUF (0) , ABUF FP = STORE Sage cad a INTERMEDIATE DATA BUFFER 
1359 005316 005237 001400 INC BUF FP : INCREMENT POIN 
1360 005322 022737 015670 001400 CMP #BUFF+10..BUFFP :HAVE 10 CHARACTERS BEEN RECEIVED 
1361 005330 002401 BLT .+4 
1362 005332 000002 RTI sEXIT 
1363 005334 022737 000002 001332 CMP #2, CONFIG *RUNNING CONFIGURATION 2? 
1364 005342 001405 BEQ ~ R 
1365 005 022737 016022 001400 CMP eae eres HAVE 100. CHARACTERS BEEN RECEIVED? 
1366 005352 001405 BEQ RISRC :GO CHECK DATA IF YES. OTHERWISE 
1367 005354 000002 - RTI “EXIT 
1368 005356 052770 000100 011412 RISRBAB: BIS #BIT6,aTCSR(0) = START CALLERS TRANSMITTER 
1369 005364 000002 RTI EXIT 
1370 ;CHECK DATA CONFIGURATION #1 
1371 005 RISRC: NOP 
1372 005370 012737 000001 001364 MOV #1,CTRD cINTIAL IIe CHARACTER COUNT 
1373 005376 012702 015656 MOV MBUFF .%2 =POIN T R2 TO CALLERS RECEIVED DATA BUFFER 
1374 005402 012703 015512 MOV #OUTBUF ,%3 :R3 = Tan ST ADDRESS OF OUTPUT DATA BUFFER 
1375 005406 010237 001400 MOV Z2 .BUFFP sRESTORE CALLERS RCVD DATA BUFFER PTR 
1376 005412 022737 000001 001332 CMP #1,CONFIG ; CHECK CONFIGURATION 
1377 5420 001015 BNE RISRD 
1378 005422 112337 001360 RISRCA: MOVB (3)+,XMTDAT :GET TRANSMITTED CHARACTER 
1379 005426 112237 001356 MOVB (2)+,RECDAT GET ago tT hd CHARACTER 
1380 005432 104004 DATCHK : CHECK 
1381 005237 001364 INC CTRD S OACREMENT CHARACTER COUNT 
1382 005440 022737 000101 001364 CMP #101,CTRD “HAS ALL DATA BEEN CHECKED 
1383 005446 BNE RISRCA 
eae 005450 000137 005554 JMP FINISH 
1386 : CHECK DATA CONFIGURATION #2 
1387 005454 000240 RISRD: NOP 
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19=JUL~79 
MOV #INBUF ,%4 sPOINT R4 TO CALLED LINES RECEIVER 
MOV 44, INBUFP :DATA BUFFER & INIT. POINTER 
MOV #BUFF . TBUF FP 
RISRDA: MOV CALLED, %1 
MOV RCSR(1)..RXCSR 
MOVB (3) +, XMTDAT 
MOVB (2) +. RECDAT :COMPARE TRANSMITTED DATA WITH DATA 
DAT CHK -RECEIVED BY CALLED LINE 
MOV CALLER, %1 
MOV RCSR(1),RXCSR 
MOVB (4)+,RECDAT ; COMPARE TRANSMITTED DATA WITH DATA 
DAT CHK “RECEIVED BY CALLER 
INC CTRD 
CMP #101,CTRD 
BNE RISRDA 
FINISH: NOP 
MOV CALLED, %1 
SR 5 FILL 
OUTBUF 
00. 
TYPE 
ENDP 
BIS #B1T6,aTCSR(1) 
a 
; ERROR SERVICE ROUTINE 
DCERR: BIT #81115, @RBUF(O) =: TEST ERROR 
Q RISRF 
ERRRX 
CSRADD 
RISRF: MOV #OUTBUF ,OTBUFP :SET OUTPUT BUFFER POINTER 
MOV #INBUF,INBUFP  :SET INPUT BUFFER POINTER 
MOV #BUF F ,BUF FP -SET INTERMEDIATE BUFFER POINTER 
MOV F.TBUFFP = SET POINTER FOR CONFIG #2 TRANSMITTER 
BIT WBIT14.RXCSRT :=CHECK RING INDICATOR 
BNE RISREX “BRANCH IF RING 
JSR 7,DISCON “ERROR SET - NO RING 
ERRRX 
CSRADD 
RTI 
RISREX: CNVOA LINE. TLINE.2 
TYPE 
AL INE 
MOV %0, CALLED 
JSR PC RDOCT :GET INPUT 
MOV (SP) MODEM GET MODEM TYPE 
BIC #177773 .MODEM -0=103,4=202 
MOV (SP)+, CONFIG 
BIC W778, CONFIG 
BNE RISRF *GO TO SERVICE FOR CONFIG 1 OR 2 
JSR 7 CONN >CONNECT LINE IF CONFIGURATION 0 
TYPE “TYPE MESSAGE TO PRESS DATA 
BUTTON “BUTTON ON DATA 
DELAY “WAIT FOR CARRIER 
10000 =10 SECONDS 
TST @RBUF (0) “READ BUFFER TO CLEAR DONE 


ee 


SEQ 0030 | 
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LINE TSET 


032770 
001004 
104003 
004737 
000002 
016037 
004737 
104000 
014176 


104000 
014225 
052770 
000002 


010157 


104000 
014730 
006501 
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020000 


006312 


011412 
004460 


000100 


003372 


177740 
001330 


001402 
006326 
000002 


011314 
020000 


006312 
000006 


000002 
010000 


006166 
011216 
906012 


020000 


006166 
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011216 


001204 


011412 


011216 


011216 


001200 


011216 
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19=JUL=-79 
SEQ 0031 
BIT #1113, @RCSR(O) ; TEST FOR CLEAR TO SEND | 
BNE RI SRF | 
ERROR :ERROR! DID NOT RECEIVE CLEAR TO SEND | 
“WITHIN TIME ALLOTTED (10 SEC.) | 
JSR 7,DISCON : DISCONNECT LINE | 
RISRFB: MOV TCSR(O),TXCSR  :GET CALLED LINES TXCSR ADDRESS | 
JSR 7,SETPAR *LOAD USER PARAMETER | 
TYPE “TYPE "LINE CONNECTION 
L INMAD =MADE ' 
CNVOA CONFIG, TCONFIG,2. | 
TYPE 
ACONF IG | 
BIS #B1T6,aTCSR(O) 
RTI :AND EXIT 
“HERE IF CONFIGURATION 1 OR 2 
RISRFC: TYPE :ASK USER WHICH LINE HE IS 
WRU “DIALING ON | 
JSR PC .RDOCT “GET INPUT 
MOV (SP) +,%1 :GET LINE 4 
BIC #177740,%) :MASK UNUSED BITS 
MOV %1,LINE 
CNVOA  LINE,URA,2 
TYPE :REPORT LINE # ON TTY | 
ASL %1 | 
MOV %1, CALLER SAVE CALLERS LINE # 
JSR 7, CONN :CONNECT CALLED LINE 
BIS #B1T1, aRCSR(1) SET DTR ON CALLERS LINE 
TYPE TYPE MESSAGE TO PRESS DATA 
BUTTON “ON DATA PHONE 
DELAY sWAIT 10 SECONDS FOR CLEAR TO SEND 
10000. ;SET AT CALLED LINE 
CMP @RBUF (0) , ARBUF (15 READ BUFFERS 
BIT W113. ,@RCSR(O) : TEST FOR CLEAR TO SEND AT CALLED LINE 
ERROR sERROR! CLEAR TO SEND NOT SET AT CALLED LINE 
RISRFD: JSR 7,DISCON > DISCONNECT 
BIC #6,aRCSR(1) *LINE 
RTI *AND EXIT 
RISRFF: CoP #2 CONF IG 
cmp us: -@RCSR(1) =: CHECK CARRIER AT CALLERS LINE 
ERROR sERROR! NO CARRIER AT CALLERS LINE 
JMP RISRFD -GO DISCONNECT LINES : 
RISRFE: MOV RCESR(1) .RXCSR 
JMP RISRFB -GO GET PAREMETERS AND ENABLE 
*CALLED TRANSMITTER AND EXIT 
“ HERE IF CONFIGURATION 2 
RISRFG: i] melts, /aRCSR(1) :TEST CALLERS CLEAR TO SEND 
ERR sERROR! NO CTS AT CALLERS LINE 
IMP RISRFD “GO DISCONNECT LINE AND EX!’ 
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1505 


wv 


CeO On oa eo Anu oe 


EP A ALLA INIT 
w 
OO 


nr 
We WPS 


ee ee me ee eed a ot = od 3 2 ot ot SH tt Dw 4 0 0) ot =o 2 
yee Ee @ 
’ or a ee 
EWR OC OONOD 


MMM VI 
MPMI 


016037 
016137 
004737 


016137 
000137 
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011216 
017412 
004460 


011216 
006012 


000006 
011216 
000006 
011412 
001332 


001402 
173014 


017462 
015512 


015656 
000100 


003372 
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001200 
001204 


001200 


011216 


011216 


011510 
001410 
011412 
011510 


001406 


001406 


001406 
011412 


RISRFH: 


: SUBROUTINE 


DISCON: 


= SUBROUT INE 


CONN: 


TISR: 


TISRC: 


T] SRBB: 


TISRB: 


MOV 
MOV 
JSR 
MOV 
JMP 
BIC 
TST 
RTS 


BIS 
S 


BIC 
BR 


{RR ARERRR ER 


>PRGO = SINGLE CHARACTER LINE MODE TEST. 


“Ree REEK 


PRGO: 


JSR 
MOVB 


RCSR‘QO) ,RXCSR 
TCSR(1), TXCSR | 
7,Sc TPAR ;GO GET PARAMETERS FOR CALLERS 
; TRANSMITTER AND CALLED RECEIVER 
RCSR(1),RXCSR 
RISRFB 


TO DISCONNECT (+ RO HAS LINE #@ 


#6, ARCSR(0 
iaieiiaiadd 


TO CONNECT LINE RO HAS LINE & 


aia :SET DTR, RQ TO SND 


RT 
ie ae INTERRUPT COMMON HANDLER 


Z%0 zRO HAS LINE 4 
aTCSR(Q) : CHECK FOR DONE 
TISRA ;BRANCH IF DONE 
ee pm FALSE INTERRUPT 
SEX 
CONF IG THIS CONFIGURATIO 0? 
TISRC ;BRANCH IF YES 
31 cai :DiD CALLER INTERRUPT 
aTBUFFP, aTBUF (0) : TRANSMIT 
TBUF FP :STEP POINTER 
cr," cal cael 
Mh, 
#B81T6,aTCSR(O) 
@OTRUFP , aTBUF (0) 7 TRANSMIT THE NEXT CHARACTER 
OTBUFP sSTEP POINTER TO NEXT CHAR. 
CONF IG ;WAS CONFIGURATION O SELECTED 


TISRB ;BRANCH IF CONFIG #1 OR #2 
#OUTBUF +1000. ,OTBUFP;HAVE 1000. CHARS. BEEN SENT 
TISRAA sEXIT IF NOT 
#OUTBUF ,OTBUFP ;RESET POINTER 

;AND EXIT 


ee © eR ORT Oe se CHARS. BEEN SENT? 


TISRAA sEXIT IF NO 
#B1T6,aTCSR(O) ;DISABLE TRANSMITTER INTERRUPT 
TI SRBB | sRESET POINTER AND EXIT 


:BEGIN PRGO 
» TYPE 
sPROGRAM TITLE 


PC .RDOCT 
(SP) +, 21 


;GET INPUT 
;GET USER SPECIFIED BATA 


SEQ 005. 
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15: SEQ 0033 


C7DLBC.P11 19=JUL-79 06 
1556 006522 010137 015512 MOV %1,OUTBUF ; AND 
1557 006526 006537 004252 JSR 5 ,BMOVE ; LOAD 
1558 006532 0155i2 OU TBUF INTO 
1559 006534 075513 OUTBUF +1 ; OUTPUT 
1560 006536 001747 : ;BUFFER 
1561 006540 004737 005154 JSR 7,OVRLAY sOVER LAY CR,LF‘S IN DATA 
1238 006544 004737 010352 JSR 7,LDPRI LOAD PRIORITY LEVEL IN VECTOR+2 
1563 006550 004737 010304 JSR 7,LDTVEC LOAD TRANSMITTER VECTORS 
1564 006554 004737 010240 JSR 7,LDVECS LOAD RECEIVER VECTORS 
1565 006560 012737 000340 177776 MOV #PRTY?7, PSW :;SET PROCESSOR PRIORI TY=/7 
1566 006566 012702 000140 MOV #140, %2 > SET IE 
1567 006572 012701 011216 MOV #RCSR,%1 ;BIT IN 
1568 006576 004537 010174 JSR 5 .MOVIT sALL RECEIVERS 
1569 006602 104000 TYPE : TYPE 
1570 014020 MAK CON 7 "MAKE LINE CONNECTION’ 
1571 006606 005037 177776 CLR PSW ;SET PROCESSOR PRIORITY=0 
1572 006612 000001 PRGOA: WAIT :WAIT 
1573 006614 000776 BR PRGOA HERE 
1576 kkk hk ek 
1575 ; :PRG1 - SPECIAL BINARY COUNT PATTERN LINE MODE TEST. 
1576 TR ee 
1577 006616 104000 PRG1: TYPE ; TYPE PROGRAM TITLE. 
1578 006620 013322 PITIT | 
1579 006622 012737 105215 015512 © MOV #105215,OUTBUF ;LOAD CRLF 
1580 006630 537 =004220 JSR 5. INFIL =LOAD OUTPUT 
1581 006634 015514 OUTBUF +2 sWITH BINARY 
1582 006636 001750 1000. ; COUNT PATTERN 
1583 006640 012737 000100 001334 MOV #100,.NUMBER 
1584 006646 004737 010352 JSR 7,LDPRI ;LOAD PRIORITY LEVEL IN VECTOR +2 
1585 006652 004737 010304 JSR 7,LDTVEC LOAD TRANSMITTER VECTORS 
1586 006656 004737 010240 JSR 7,LDVECS >LOAD RECEIVER VECTORS 
1587 006662 0127357 000340 177776 MOV APRTY7,PSW SET PROCESSOR PRIORITY=7 
1588 006670 012702 000140 MOV #140 ,%2 :GET IE BIT 
1589 006674 012701 011216 MOV #RCSR,%1 7GET FIRST CSR ADDRESS 
1590 006700 004537 010174 JSR 5.MOVIT ;AND MOVE IT 
1591 006704 104000 TYPE : TYPE 
1592 006706 014020 MAK CON > "MAKE LINE CONNECTION’ 
1593 006710 005037 177776 CLR PSw ;SET PROCESSOR PRIORITY=0 
1594 006714 000001 PRG1C: WAIT SWAIT 
1595 006716 000776 BR PRGIC HERE 
1596 RARER ER 
1597 sPRG2-SPECIAL MESSAGE TRANSMIT ONLY THIS PROGRAM TRANSMITS 
1598 TRAE ERRERE 
1599 : THE MESSAGE ‘A QUICK BROWN FOX JUMPED OVER THE LAZY DOGS 
i “BACK 1234567890. ' 
1602 006720 104000 PRG2: TYPE . : TYPE PROGRAM 
1603 006722 013371 P2TIT s TITLE 
1604 006724 004537 004072 JSR 5, LINSEL 
1605 006730 004737 004460 JSR 7,SETPAR :GO SET PARAMETERS 
1606 006734 052777 000004 172236 BIS #BIT2,@RXCSR :SET REQUEST TO SEND 
1607 006742 004537 005020 PRG2A: JSR 5,LINCON :GO MAKE LINE CONNECTION 
1608 006746 012702 014252 PRG2B: MOV #PRG2M,%2 ;GET ADDRESS OF MESSAGE 
1609 006752 112201 PRG2C: MOVB (2)+,41 =GET FIRST CHARACTER 
1610 006754 020127 000045 CMP 41,4'°% ; TERMINATOR CHARACTER 
1611 006760 001772 BEQ PRG2B RESEND ME SSAGE 
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000100 


172172 


100000 
007732 
000140 
177776 
172040 
001370 
007546 
172020 
007550 
007550 
170766 
171774 


171770 
007546 


007544 


000203 
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001374 


172154 


007544 
172054 


001370 


~*7550 


001604 
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BIT #B1T6,SRT :PARITY ENABLED 
BEQ .+6 
JSR 7,GENPAR :GENERATE PARITY 
JSR 5,LINCON :CHECK LINE CONNECTION 
MOV %1, aT XBUF :LOAD BUFFER 
TSTB aTXCSR :AND WAIT FOR CHARACTER 
BPL 4 -TO RE TRANSMITTED 
BR PRG2C -GET NEXT CHARACTER. 
{RAR RARER A 
-PRG3=-PROGRAM TO RECEIVE A MESSAGE. 
{RRA AR ARE 
PRG3: TYPE - TYPE PROGRAM 
P3TIT “TITLE 
JSR 5.LINSEL 
JSR 7,SETPAR :GET PARAMETERS 
PRG3A: MOV ASTKPTR~-2, %6 :REPOSITION STACK POINTER 
BIS #B1T2,aRXCSR :SET REQUEST TO SEND 
JSR 5, LINCON :MAKE LINE CONNECTION 
STRXV SET RECEIVER INTERUPT 
RINT3 :TO THIS ADDRESS 
STTXV -SET TRANSMITTER INTERRUPT 
TINTS :TO THIS ADDRESS 
CLR WORDS 
MOV TPVTR, 20 
MOV ATPINT, (0)+ :LOAD TELEPRINTER VECTOR 
MOV TPLVL, (0) AND PRIORITY 
MOV TBUF , %1 :GET BUF ADD 
BIS #81115, TFLAG :SET BIT 15 
JSR 7,TCRLF :SEND CRLF 
BIS #140, aRXCSR ENABLE RECEIVER INTERRUPTS 
CLR PSW 
WAIT :D0 
BR 72 :NOTHING 
RINT3: MOV @RXCSR.RXCSRT  :GET RXCSR DATA 
BMI ERR3A *BRANCH IF cRROR 
TSTB RXCSRT : TEST 
BPL ERR3B 
INC WORDS 
MOV @RXBUF , RXBUF T :GET DATA 
MOVB RXBUFT, (1) 
TST RXBUF T 
BMI ERR3C 
TSTB @SRPTR sECHO OPTION SELECTED 
I RINTSA 
TSTB aTXCSR 
BPL 74 
MOVB (1) ,@TXBUF sECHO CHARACTER 
RINT3A: CMP WORDS , 4900. sEND OF BUFFER ALLOWED 
BEQ RINT38 sYES EXIT 
TST TFLAG -IS THIS THE FIRST 
BMI RINT3E > CHARACTER BRANCH IF YES. 
CMPB (7) 25 :LAST CHARACTER RECEIVED 
BEQ RINT36 
C (1)+,4203 :CONTROL C 
BEQ RINT 3B 
RT] sEXIT 


SE 
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1668 007250 005037 007546 RINT3B: CLR WORDS 

1669 007254 042777 000140 171716 BIC #140,aRXCSR :DISABLE RECEIVER 

1670 007262 012701 015513 MOV #OUTBUF+1,%1 =: INITIALIZE BUFFER POINTER 
1671 007266 010102 MOV %1,%2 

1672 007270 052777 000100 171706 BIS #BIT6.aTXCSR —-: ENABLE. TRANSMITTER 
1673 007276 052777 000100 171720 BIS #B1T6.aTPS : ENABLE TELEPRINTER 
1675 007306 104015 FRR3A: ERRRX :; TYPE ERROR MESSAGE 
1676 007310 014353 LFAIL : 

1677. 007312 042777 000140 171660 BIC #140, @RXCSR “DISABLE RECEIVER 

1678 007320 000644 BR PRG3A 

1679 007322 104015 ERR3B: ERRRX : TYPE 

1680 007324 013135 RINTM “ERROR MESSAGE 

1681 007326 000002 RTI “EXIT 

1682 007330 104015 ERR3C: ERRRX 

1683 007332 014371 ROVER 

1684 RTI 

1686 007336 005037 007544 RINT3E: CLR TFLAG 

1687 007342 112103 MOVB (1) +,%3 

1688 007344 RTI 

1690 007346 017737 171632 001366 TINT3: MOV @TXCSR.TXCSRT :GET TXCSR DATA 

1691 007354 105737 001366 STB —soTXCSRT “TEST 

1692 007360 100016 BPL TINT3B 

1693 007362 112177 171620 MOVB —« (1) +. @T XBUF : TRANSMIT CHARACTER 
1694 007366 005237 007546 INC WORDS 

1695 007372 121103 CMPBé(1) , 23 :ALL CHARACTERS TRANSMITTED 
1696 007374 001431 BEQ TINT3C 

1697 007376 023727 007546 001604 CMP wORDS .#900. 

1698 007404 001425 BEQ TINT3C 

1699 007406 121127 000203 CMPBs«(1) #203 := CONTROL C 

1700 007412 001422 BEQ TINT3C 

1701 007414 000002 RTI -RETURN TO MAIN PROGRAM 
1702 007416 017737 171602 001372 TINT3B: MOV aqTPs, TEMP “SAVE TELEPRINTER STATUS 
1703 007424 005077 171574 CLR aTPs “DISABLE INTERRUPT 

1704 007430 105777 171570 TSTB —s_ aTPS “WAIT FOR 

1705 007434 100375 BPL val -TELEPRINTER TO FINISH 
1706 007436 104014 ERRTX : TYPE 

1707 007440 013156 TINTM “ERROR MESSAGE 

1708 007442 105777 171556 STB. ~— aT PS :WAIT FOR TELEPRINTER 
1709 007446 100375 BPL ily ‘TO FINISH 

1710 007450 013777 001372 171546 MOV TEMP, aTPS RESTORE TELEPRINTER STATUS 
711 607456 000002 RT] “EXIT 

1713 007460 042777 000100 171516 TINT3C: BIC WBIT6.@TXCSR «DISABLE INTERRUPT 

1714 007466 032777 000100 171530 BIT #B1T6,aTPS “1S TTY ACTIVE 

1715 007474 001421 BEQ PRG3EX 

1716 007476 000002 RTI 

i718 

1719 007500 112277 171522 TPINT: MOVB  (2)+,aTPB : TYPE CHARACTER 

1720 007504 121203 CMPBé(2) , £3 “WAS THIS THE LAST CHAR, 
1721 007506 001404 BEQ TPINTA 

1722 007510 121227 000203 CMPB ss (22) , #203 := CONTROL C 

1723 007514 001401 BEQ TPINTA 


a 
—— ee nee 


Rae 
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1724 007516 000002 RTI 

1725 007520 042777 000100 171476 IPINTA: BIC #B1T6,aTPS :DISABLE INTERRUPT 

1726 007526 032777 000100 171450 BIT #BIT6,aTXCSR "1S TRANSMITTER ACTIVE 

1727 007534 001401 BEG +4 

1728 75 000002 RT] Zs EXIT 

1729 007540 000137 007032 PRG3EX: JMP PRG3A 

1730 007544 000000 TFLAG: 0 

1731 007546 000000 WORDS: 0 

1732 007550 000000 RXBUFT: 0 

1733 SERRE 

1734 “PRG4-SPECIAL MESSAGE TRANSMIT ONLY THIS PROGRAM TRANSMITS 

1735 Stee tee ett k 

fe >MESSAGE SPIRAL PATTERN 

1738 007552 104 PRG4: TYPE : TYPE PROGRAM 

1739 007554 013477 P4TIT * TITLE 

1740 007556 004537 004072 JSR 5 LINSEL 

1741 007562 004737 004460 JSR 7,SETPAR :GO SET PARAMETERS 

1742 007 052777 171404 BIS #BIT2,a@RXCSR = :SET REQUEST TO SEND 

1743 007574 012737 000110 007730 MOV #72.,COLMN -INIT PAGE WIDTH 

1744 007 012703 MOV #60,%3 -SET LINE START CHAR 

1745 007 537 005020 PRG4A: JSR 5 .LINCON :GO MAKE LINE CONNECTION 

1746 007612 737. «007732 JSR 7, TCRLF 

1747 007616 010302 PRG4B: MOV %3,%2 :GET FIRST CHARACTER 

1748 007620 110201 PRG4C: MOVB %2,%1 “GET CHARACTER 

1749 007622 120127 000136 CMPB—s_s«%1, #136 = TERMINATOR CHARACTER 

1750 007626 001003 BNE PRG4 :RESEND MESSAGE 

1751 007630 012702 000040 MOV #40,%2 

1752 007634 000771 BR PRG4C 

1753 007636 032737 000100 001374 PRG4D: BIT #8116,SRT :PARITY ENABLED 

1754 007644 001402 BEQ .+6 

1755 007646 004737 003656 JSR 7,GENPAR :GENERATE PARITY 

1756 007652 537 005020 JSR 5.LINCON CHECK LINE CONNECTION 

1757 007656 010177 171324 MOV <1 aTXBuF “LOAD BUFFER 

1758 007662 105777 171316 TSTB = aTXCSR 7AND WAIT FOR CHARACTER 

1759 007666 100375 BPL 4 -TO BE TRANSMITTED 

1760 007670 005202 INC %2 :SET FOR NEXT CHAR 

1761 007672 005337 007730 DEC COLMN sALL COLUMNS PRINTED? 
007676 001350 BNE PRG4C >NO, GET NEXT CHAR 

1763 012737 000110 007730 MOV #72. ,COLMN “RESET COLUMN COUNTER 

7706 004737 007732 JSR 7. TCRLF 

1765 007712 005203 INC % :UPDATE LINE START CHAR 

1766 007714 120327 000136 CMPB so% 3, #136 >LAST IN SET 

1767 007720 001336 BNE PRG4B NO 

1768 007722 012703 000040 MOV #40,%3 :YES, RESET 

1769 007726 7 BR 64B “GET NEXT CHARACTER. 

1770 COLMN: 0 

1771 : 

Ieee :SEND CR LF 

1774 007732 112777 000015 171246 TCRLF: MOVB  #15.aTXBUF :SEND CR,LF 

1775 007740 105777 171240 TSTB — aTXCSR 

1776 007744 100375 BPL 4 

1777 007746 112777 000012 171232 MOVB #12, aTXBUF 

1778 007754 105777 171224 TSTB ~— aT XC SR 

1779 007760 100375 BPL 4 
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000207 
013546 
537 004072 
737 004460 

75 AA 000006 
014020 

5777 171160 
032777 020000 
001003 
104000 
014146 
000764 
104 
014176 

5037 010172 
012702 014252 
112201 
020127 000045 
001440 
032737 000100 
00140 
004727 003656 
032777 020000 
00175 
010177 171072 
eens 171062 
104003 
105777 171050 
100375 
117703 171044 
043701 001362 
120103 
001403 
104003 
005237 010172 
105777 171024 
100375 
000724 
104 
014117 
000727 
012737 
012737 000002 
012700 000037 
010231 


MACY11 
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171072 


000004 
000006 


30A(1052) 19=JUL-79 
RTS %7 
{ARERR AKE 
;PROGRAM 5 
5, RRA RKEKKE 
PRGS: TYPE 
PSTIT 
JSR 5,LINSEL 
RESET 
JSR 7,SETPAR 
BIS #6,ARXCSR 
PRGSA: TYPE 
MAK CON 
HAL T 
TST @RXBUF 
BIT #B1T13,aRXCSR 
BNE PRGSB 
PRGSAA: TYPE 
LINCHM 
PRGSA 
PRGSB: TYPE 
L INMAD 
CLR ERRCNT 
PRGSBB: MOV #PRGOM, %2 
PRGSC: MOVB (2)+,%1 
CMP £1 ,&°s 
BEQ PRGSE 
BIT ABIT6,SRT 
BEQ +6 
JSR ro GENPAR 
BIT #B1T13,aRXCSR 
BEQ PRGSAA 
MOV %1,@7XBUF 
TST @RXBUF 
BPL +4 
ERROR 
TSTB @RXCSR 
BPL 74 
MOVB @RXBUF ,%3 
BIC CARMSK , 21 
CMPB 21,%3 
Q PRG5D 
ERROR 
INC ERRCNT 
PRGSD: TSTB ror 
PRG5SC 
PRGSE: TYPE 
NDPAS 
PRG5BB 
ERRCNT: 
;BY 
MOVIT: MOV #6,4 
MOV #2.6 
MOV #31. , 0 
MOVITA: MOV ie, a(1)+ 
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:SET DTR RQ TO SND 

; TYPE MESSAGE TO MAKE 
:LINE CONNECTION 
“WAIT FOR USER TO MAKE LINE CONNECTION 


; READ 


BUF FER 
> TEST FOR CLEAR TO SEND 


: TYPE ERROR MESSAGE 
;AND TRY AGAIN 


:GET A CHARACTER 


;WAS IT THE TERMINATOR? 


;WAS PARITY OPTION SELECTED? 
;BRANCH IF NO PARITY DESIRED 


SEQ 0037 | 


:GENERATE PARITY ON CHAR. IN Ri 
> CHECK CLEAR TO SEND 


sk OME ERROR FLAG IS SET 
“WAIT FOR THE RECEIVER TC RECEIVE 


>THE TRANSMITTED CHARACTER 


: SAVE IT_ IN R35 


NON- TRANSMITTED BITS 


LEAR 
“WAS RECEIVED & TRANSMITTED DATA THE SAME 
ERROR! DATA ERROR | 
:WAIT FOR TRANSMITTER TO FINISH 


| 
| 
;GET BASE ADDRESS OF DATA TO BE TRANSMITTED 


OPEN 
{THIS ROUTINE MOVES THE CONTENTS OF R2 TO THE ADDRESS SPECIFIED 


;SET UP FOR RETURN 
:GET COUNTER 


sMOVE THE DATA 
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01 
010350 


010352 
0 


012701 
012702 
012703 
012704 
032712 
001003 
011200 
010160 
060301 
005722 
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001366 
000207 


012701 


004576 000004 
000040 000006 


012176 
011120 
000010 


000037 
000001 


000004 


011120 
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| 
: 
| 
| 
| 


19=JUL-79 
SEQ 0038 | 

DEC %0 -ALL DATA MOVED? 
BNE MOVITA “NO. RETURN 
MOV #ERTP MACHER 
MOV #40 ,MACHER+2 
RTS 5 RETURN 

“SUBROUTINE TO LOAD ALL VECTORS 

[DVECS: MOV #RISRO,%1 
MOV #VECTAB, %2 
MOV #10,%3 
MOV #31..%4 

LDVECB: BIT #BITO, (2) =DOES THIS VECTOR EXIST 
BNE LDVEC1 :NO, SKIP LOADING 
MOV %41,a(2) “LOAD VECTOR 

LDVEC1: ADD %3,%1 
TST (2)+ 
DEC %4 
BNE LDVECB 
RTS 

LDTVEC: MOV #TISRO,%1 
MOV #VECTAB, %2 
MOV #10,%3 
MOV #31. .%4 

LDTVED: BIT #B1T0, (2) :DOES THIS VECTOR EXIST 
BNE LDVEC2 :NO, SKIP LOADING 
MOV (2),%0 
MOV %1,4(0) 

LDVEC2: ADD 13,21 
TST (25+ 
DEC %4 
BNE LDTVED 
RTS 

ROUTINE TO LOAD PRIORITY LEVEL 7 IN VECTOR +2 

I: MOV #VECTAB, :GET BASE .VECTOR 

MOV 0,% sGET LEVEL 7 
MOV ) eee 5 COUNTER 

LDPRIA: BIT weit, (1) :DOES THIS VECTOR EXIST 
BNE PRIX :NO SKIP LOADING 
MOV (1) 246 “LOAD VECTOR +2 
MOV %2,2(4) 

LDPRIX: TST 1)4 :POINT TO NEXT VECTOR 
DEC 3 “DECREMENT COUNTER 
BNE LDPRIA 


j eaKRN 


WHEN 
“GETS CONTENTS OF SOFT. SWITCH REG., 


aeKkKKK 


® CHECK SWITCH REGISTER ROUTINE. 
F LOC 176. 


CHECKS FOR “G TO ALLOW CHANGING 
ROUTINE IS ENTERED AT CNTLU FOR START UP PURPOSES. 

S GIVEN, THE PROGRAM ENTERS AT CKSWR, THE PROGRAM 

TYPES IT OUT, AND THEN SEEKS 





CZDLBCO DL11-E ON LINE TSET 
CZDLBC .P11 


894 
bye 


BRSSSEsF 


SESRSE 


woovowovwovowowovowvo 
abubeh abab~) ebabadesD 
WOONAUSWN oO 


3 


eh el ce ee me wee el ed eel ee ee eed ee ee od od wd dd od 
— 


Sex 
N 


1892 
ieee 


022737 
001133 
105777 

30 
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000176 
170572 
170566 
177600 
000007 


170542 


167474 
010750 


001426 
000007 
170474 
170470 
170464 
001430 


177600 
000025 


000015 
000007 


000060 
000067 


001426 


MACY11 


000170 


001430 
001430 
001430 


001416 
001430 


170456 
001430 
001416 


0014350 
001430 


N 3 
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sNEW DATA FROM OPERATOR. ONCE DATA IS SUPPLIED, IT INSERTS 
;DATA INTO THE SOFT. SWITCH REG. 
;MAIN PROGRAM. 


;AND THE PROCESS RESTARTED. 
:TO BE DELETED AND THE PROCESS RESTARTED. 


’ 
5 RARER 


CHGC4: 
CKSWR: 


CNTLU: 


4$: 


S$: 


6$: 


ASWREG,SRPTR 

OUT 

aTKS 

OUT 

@TKB,TIB 

#177600,TIB 
7,1T1B 


aTPB 


@SRPTR,-(SP) 
PC, TYPOC 
(SP)+,RO 


TEMPST 
#7, COUNT1 
atks 

1$ 

@TKB,TIB 
aTPS 
TIB,aTPB 
#177600, TIB 
#25,TIB 
CNTLU 
#15,TIB 

4$ 

#7, COUNT1 
7$ 


ie 
#67,TIB 
6$ 


3$ 
TEMPST 


AND RESUMES OPERATION IN THE 
INCORRECT ENTRIES (SUCH AS 8,9,LETTERS) ARE DELETED 
TYPING *U ALLOWS THE PRESENT ENTRY 


; SOF TWARE 7 REG PRES? 


iNO, GET 


OU 
;YES, IS CHARACTER READY? 
:1F NOT, GET OUT 


IS IT A “*G 


“IF NOT GET OUT 


ECHO 


sALLOW SWR= 


TO BE TYPED 


sMOV CONTENTS OF SWR 
sOCTAL TYPE OUT ROUTINE 
;CORRECT STACK POINTER 


;ALLOW NEW= 


TO BE TYPED 


:CLEAR TEMP STORAGE LOC 
:SET UP TO ACCEPT 7 CHAR 
:IS CHARACTER THERE? 


:PICKUP CHARACTER 
;CHECK PRINTER STATUS 


sNOT READY, 
;PRINT IT 


TRY AGAIN 


“STRIP OFF GARBAGE 


sIS IT A “U 
: H IF 
sSTART OVER 


NOT 


:IS IT A <CR> 

;BRANCH IF NOT 
:TYPEOUT <CR> AND <LF> 
sWAS <CR> FIRST CHAR 


; CHANGE SWREG 
: 7 


:START INPUT STRING OVER 
:MULTIPLY BY TEN 


IF NOT FIRST <CR> 
HAN 0 


eee ee 


SEQ 0039 | 


| 


CZDLBCO DL11~E ON LINE TSET 
CZDLBC.P11 


oo 
ww 
‘000 


SESSEELERES 


— tt td 3 I 3 8 Lt I 
NNN 
Wwr-Oov 


0000 


SESS REPS RSS SRE LESS RALER SSS SSS 


19=JUL-79 


15:06 


001426 
anes 


00006 
001430 
001416 


001426 
010412 
000001 


000006 
000005 


001425 


000006 
001424 


001422 
000010 


001424 
177770 


000060 
170144 


170140 
170132 


001420 


MACY11 30A(1052) 


001430 
001426 


167260 


001422 
001425 
001420 


7$: 
OUT: 


TTINTS: 


TYPOC: 
TYPON: 


8$: 
7$: 


19=JUL-79 
ASL TEMPST 
ASL TEMPST 
BICB #60,TIB 
BISB TIB, TEMPST 
DEC COUNT 1 
BEQ 5$ 
BR 1$ 
MOV TEMPST, @SRPTR 
RTS PC 
MOV RO,-(SP) 
MOV R1,-(SP) 
JSR PC,CKSWR 
MOV (SP)+,R1 
MOV (SP)+,RO 
RTI 
MOVB #1,FILL1 
MOVB #6,MODE+1 
MOVB #5.CNT 
MOV R3,-(SP) 
MOV R4,~-(SP) 
MOV R5,-(SP) 
MOVB MODE +1 .R4 
NEG R4 
ADD #6 RS 
MOVB R4 ,MODE 
MOVB FILL1,R4 
MOV 10(SP).R5 
CLR R3 
ROL R5 
BR 3$ 
ROL R5 
ROL R5 
ROL R5 
MOV R5,R3 
ROL R3 
DECB MODE 
BPL 7$ 
BIC #177770,R3 
BNE 4$ 
TST RS 
BEQ 5$ 
INC R4 
BIS #60,R3 
TSTB aTPs 

L $ 

VB R3,a7PR 
TSTB alrPs 

L 8$ 
DECB CNT 
BGT 2$ 


B 4 
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SEQ 0040 


;CLEAR OF ASCII 
:MOV 


CHAR TO TEMPST 
; ONLY WANT 6 NUMBERS AND <CR> 
ile @.F “s MANY NUMBERS 


:GET NEXT CHAR 
;CHANGE SWR CONTENTS 
;RETURN TO PROGRAM 


; INTERRUPT SERVICE ROUTINE 
:SAVE RO AND R1 

;GO TO SUBR TO SERVICE [TTY INTERRUPT 
:RESTORE R1 AND RO 


;RETURN FROM INTERRUPT 


:SET THE ZERO FILL SWITCH 
;SET FOR SIX (6) DIGITS 
HP 2 i ITERATION COUNT 


; SAVE 
SAVE R4 
;SAVE R5 


:GET THE NUMBER OF DIGITS TO TYPE 
:SUBTRACT IT FOR MAX. ALLOWED 
Sig IT FOR USE 

THE ZERO FILL SWITCH 

u NUMBER 

; T WORD 

:ROTATE MSB INTO ‘‘C'’ 


:GO DO MSB 
:FORM THIS DIGIT 


-GET LSB OF ee siGit 
S DIGIT? 


;COUNT BY 1 
:BR IF MORE TO DO 


CZ7DLBCO DL11-E ON LINE TSET 
19=JUL-79 15:06 


CZ2DLBC .P11 
2004 011102 
2005 011104 
2006 011106 
2007 011110 
2008 011112 
2009 011114 
2010 011116 
2011 
2012 
2013 
2014 
2015 011120 
2016 011122 
2017 011124 
2018 011126 
2019 011130 
2020 011132 
2021 011134 
2022 011136 
2023 011140 
2024 011142 
2025 011144 
2026 011146 
2027 011150 
2028 011152 
2029 011154 
2030 011156 
2031 011160 
2032 011162 
20335 011164 
2034 011166 
2035 011170 
2036 011172 
2037 011174 
2038 011176 
2039 011200 
2040 011202 
2041 011204 
2042 011206 
2043 011210 
2044 011212 
2045 011214 
2046 
2047 
2048 
2049 011216 
2050 
2051 
2052 
2053 
2054 
2055 
2056 011314 
2057 
2058 


MACY11 30A(1052) 


6$: 


19=JUL-79 
BLT 6$ 
INC R4 
BR 2$ 
MOV (SP)+,R5 
MOV (SP)+ RSG 
MOV (SP)+,R3 
RTS PC 


{AAR REE 


; VECTOR > iaaioaaal TABLE 


VEC TAB: 


:DL11-E 


RCSR: 


RBUF : 


C 4 
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;BR IF DONE 


; INSURE LAST DIG 


I 
“GO DO THE LAST 
“RESTORE R4 


VECTOR 
NE 35 VECTOR 
NE 36 VECTOR 


ISN'T A BLANK 
IT 


SEQ 0041 


CZDLBCO 
CZDL 


DLBC 


2107 
2108 


niece nea 
MEW © 


MMIMIANMANY 
ed ed ed ed eed ad eed 


p 


DLI1<-E 
11 


011412 


011510 


012576 


00000 
000037 


0040 
042445 


ON LINE TSET 
19=JUL=-79 15:06 


047516 
052517 


050131 
050040 
046501 
042502 


040040 
051122 


D 4 
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020105 
047522 


047040 
020122 
051117 


TCSR: 


TBUF : 


=MESSAGES 
MTITLE: .ASCII 


MTERR: 


ASCII 


ASCII 


“ASCII 
ASCII 
ASCII 
“ASCII 


: .ASCII 


ASCII 


"ZCZDLBCO DL11-E ON LINE TESTZ° 
"ZMAP OF DEVICES PRESENT" 


"ZLINE D-ADR TRAP ATZa’ 


e Za‘ 
"ZNONE FOUNDZaQ' 


"TYPE IN PROGRAM NUMBER a’ 


"ZERROR - UNEXPECTED TRAP" 


E 4 
CZDLBCO OL11-E ON LINE TSET MACY17 30A(1052) 19-JUL-79 15:10 PAGE 43 
CZDLBC .P11 19=JUL-79 15:06 


013024 026440 052440 pies 

013046 052045 040522 050120 ASCII ‘“%TRAPPED TO ' 
013054 on 052040 020117 

oy 020040 MTO: ASCII ' 

013073 045 651124 050101 ASCII '"%TRAPPED FROM PC S' 
013100 042520 020104 051106 

we 2 050040 020103 

020040 020040 MFROM: .ASCII ' a’ 

040040 

ig 020040 020040 CSRADD: .ASCII ' Q' 

040506 051514 RINTM: .ASCII ‘FALSE INT. RCVRQ" 


~~ 3 23 -3 3 3 3 4-3 es 
MMMM MMPI -- ee OD 
OWOBNAUSWNOCOMNR O 
© 
S 
& 
© 


FAVARE 
2) 
: 
oO 


COonv'i 
R 
>] 
Wi 
LA 
~~ 
-) 
LA 
R 
NM 
NM 


01 
043045 046101 042525 TINTM: .ASCII ‘FALSE INT XHITO" 
044440 052116 054040 


176 O50€45 036505 040 EMO: ASCII ‘*%PC= ' 
203 040 020040 020040 APC: moti ° 


040040 
41 013214 020040 054124 951505 ATXCSR: .ASCII ° TXCSR = '' 
Sa SESS 94 ais 020040 020040 ATXWAS: .ASCII ° a’ 
2145 013235 040 051040 041550 ARXCSR: .ASCII ° RXCSR = ' 
036440 040 
2147 013247 ocoben 020040 020040 ARXWAS: .ASCII ° a" 
2149 013256 022445 051120 0350107 POTIT: .ASCII ‘*ZPRGO 


DURA RWIS 
OOCCOCOCOCOCOCOCCOCOOo 
ead od ed eed ed ad ad od ad od ed oD Dd Dd 

Stew 


MMINMIPENMINININMPIMINMI MINI NIM NaNI NN NNN NoN NPP 


SINGLE CHAR LINE MODE TESTa" 


SPEC BIN COUNT LINE MODE TESTa’ 


05 
2155 0133522 022445 051120 030507 PITIT: .ASCII ‘%%PRG1 
013330 2520 


SPECIAL MESSAGE LINE MODE TESTa" 


013366 00 
2162 013571 045 050045 043522 P2TIT: .ASCII ‘"%PRG2 


0134 100 
2169 013441 045 050045 0435522 P3TIT: .ASCII] ‘'%2PRG3 - RECEIVE MESSAGE TESTa' 


0063 020055 
2171 013454 042503 053111 020105 


CZ7DLBCO DL11-E ON LINE TSET 
CZ7DLBC.P11 


NOMNMINIPS MINIM NINN NN Np N NN Pon nny 
Se ee ae ee ee ee ar ae ee ir he ee i ee es er er 
BLFARANLESRVRARAV AS Iarao 


Nm 


2199 
2 


= 
EES 
oe 


elLelelelele)elela) 

ad ot 3 3 et) 
WANWNAANAA 

PENSESe eS 


014121 


042515 
020105 
10 


19=JUL-79 15:06 


051523 
042524 


0 0 
020122 
020040 


040077 
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043501 
052123 


043522 


051111 
020065 


051527 
030524 


042514 
040504 


020105 


053440 


041440 
047516 


100 


PLTIT: 


P5STIT: 


SELPAR: 


SELCAR: 


DTERR: 


MAK CON: 


CERDAT: 


CSB: 
CWAS: 


CRNUM: 
ENDPAS: 
AINPRG: 


ASCII 


ASCII 


ASCII 


-ASCTI 


ASCII 


ASCII 
ASCII 


ASCII 
ASCII 
ASCII 
ASCII 
BYTE 


“ASCII 
"ASCII 


007 
‘a’ 
ie ¥; 


"RAPRGS = SPECIAL MESSAGE TEST (SPIRAL)Q' 


"%ZPRG5 = DATA ECHO TEST USING MAYNARD FACILITYa' 


"ZTYPE IN PARAMETERS AS FOLLOWS: ' 


*"ZBIT1-0 = CHAR LENGTHZa" 


“ZTYPE TEST CHAR CODE IN BIT/7-BITO OF AN QOCTAL BYTE 


"ZILLEGAL DATA%a' 


“VYMAKE LINE CONNECTION.a' 


' DATA S/B: ' 
ee) 
. CHAR NO, ' 


] a’ 


’ 
A A 


Nn eee 


CZDLBCO DL11~E ON LINE TSET 
C7DLBC .P11 


© 


etd ed oe 0d etd ed od od od ot = 3 


ee Factthat aad dp Be 
Wn 
NS 


elt ead ead edie aD ead ceed eid 
Nm PP te tS 
MONMNEAONMLANMO 


elelelelelelsielelelelela) 
RRS 


423¢ 


014554 


19=JUL-79 15:06 


051101 
051105 


050131 
047440 


G 4 
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051102 
047506 


032063 
027071 


042516 
042514 


051105 
043040 
020054 
051101 
051105 

100 
042516 


040527 
wee 


00 
042516 


040527 
046114 


020105 


020046 


PARMTS: 


APARM: 
LINCHM: 


L INMAD: 


ACONF IG: 


TCONF IG: 


PRG2M: 


LFAIL: 


ROVER: 


AL INEX: 
TLINEX: 


ALINE: 
TLINE: 


-ASCI 
-ASCI 


ASCII 


I 
] 


ASCII 


ASCII 
ASCII 


ASCII 


ASCII 
ASCII 


ASCII 
ASCII 


ASCII 


"ZPARAMETERS = ' 


* CLEAR TO SEND NOT SET.’ 


"SLINE CONNECTION MADE.Q" 


ASCII '‘XCONFIGURATION 4 ' 
ASCII * Q! 
015,012 


"THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK’ 


* 0123456789.%" 
"ZLINE FAILEDZa" 


"ZOVERRUN, FRAME, OR PARITY ERRORZa" 


"ZLINE # 
"WAS SELECTEDAa’ 


"ZLINE # ' 
* WAS CALLED’ 


'¥TYPE IN OCTAL: CONFIGURATION IN BITO-1 & MODEM TYPE* 





CZDLBCO DLII-E 
CZDLBC .P11 


ON LINE 


TSET 
19=JUL-79 15:06 


020115 
052517 


H 4 
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020115 
044502 


020040 
042520 


020040 
041440 
020104 
046040 
020043 


051505 
040524 


WRU: 


UR : 


URA: 
BUTTON: 


LDLINE: 


ASCII 


ASCII 


ASCII 


ASCII 
ASCTi 


ASCII 


"ZIN BIT 


(0=103, 1=202) 


"ZTYPE IN OCTAL IN BITO=4 THE LINE 4 YOU ARE CALLING FROM 


"ZYOU CALLED FROM LINE @ ° 


"APRESS DATA BUTTON ON DATA PHONES" 


"ZTYPE LINE NO. 


IN OCTAL IN BIT 3-7 


eee a errr 0 ngs aoe ee ee en 


100 
2321 015073 045 042522 047503 MPWRF: .ASCII ‘RECOVERED FROM POWER FAILUREQ' 


06 

14 

oF, | : | 
31 046111 042514 MMODX: .ASCII ‘ILLEGAL LINE NO.a' 

44 042516 047040 027117 | 

53 046111 042514 MMODD: .ASCI! ‘'%ILLEGAL DEVICE ADDRESSa' 
60 042504 

66 

74 


044526 042503 040440 
042104 042522 051523 


045 054524 042520 MMOD1: .ASCII ‘TYPE IN QCTAL : BIT O=5 THE LINE NUMBER OF DEVICE ADDRESS TO BéE° 


S38 


ee ee ee ee ee ee 
MN 
—_ 2 


N 

ve 

N 
elelelelelelejealejele) ola) sjieile! 
PUP VAP SDA VTA TT 


MM 
NM 
SOOWN 
& 
é 
Sus 
© 
Nm 
© 
— 
—" 
On 
oOo 
:> 
— 
Ww 
—> 
™N 


044502 020124 026460 


ee — af 


CZ7DLBCO DL11-E 
CZDLBC P11 


mrMnronrnnrnrnrnwnrnn Oo 


Ww 
wiv 


01 

015444 
015452 
015455 


015510 


015512 
017462 


021432 


ON LINE TSET 
19=JUL-79 15:06 


057040 
051440 


100 
047040 
60 


1 
037440 


MACY11 30A(105¢) 


020105 
40 


044504 
020040 


042520 


020107 
051127 
053505 
040040 


I 4 
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19=JUL-79 
«ASCII * MODIFIED a’ 
MMOD2: .ASCII] ‘TYPE IN NEW RXCSR DEVICE ADDRESS Q’ 
MMOD 3 ASCII] ‘TYPE IN 177777 TO CHANGE ANOTHER’ 
-ASCII * DEVICE ADDRESS a" 
peeaxee CHG(5 «eenne 
CNIG: ASCII / *G a/ 
SWR: eASCII / SWR= a/ 
NEW: -ASCII / NEW= @/ 
GUEST: ASCII: f° 2-2? af 
SCRLF: .ASCII /%a/ 
SERRE EKEAE ENR AREER 
EVEN 
OUTBUF : OPEN 
. =OUTBUF +1000. 
INBUF: OPEN 
.= INBUF +1000. 
BUF F=OUTBUF +100. 
DEND: «END eh : 


Ot ee 


SEQ 004/ 


ee 


cn a ee eee ct re ee ES ER ee ER: a ne RE OE a ee ne ee er ern em 


CZDLBCO DL11-E ON LINE TSET 


CZDLBC.P11 
A 000037 
ACONFI 014225 
ADDI 004062 
ADTENP 004440 
AGAIN 004024 
AINPRG 014121 
ALINE 014463 
ALINEX 014433 
APARM (14142 
APC = 013203 
ARXCSR 013235 
ARXWAS 013247 
ATXCSR 013214 
ATXWAS 013226 
BDCNV 004274 
BDCNVA 004326 
BDCNVB 004360 
BDCNVC 004362 
BDCNVD 004364 
BITO = 000001 
BIT? = 000002 
BIT10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT15 = 100000 
BIT2 = 000004 
BIT3 = 000010 
BIT4 = 000020 
BIT5 = 000040 
BIT6 = 000100 
BIT7 = 000200 
BIT8 = 000400 
BIT9 = 001000 
BMOVA 004262 
BMOVE 004252 
BUFF = 015656 
BUFFP 0014 

BUTTON 014763 
CALLED 001404 
CALLER 001402 
CARMSK 001362 
CERDAT 014047 
CHALT = 104005 
CHGC2 232 
CHGC4 010412 
CHGC6 002004 
CHLT 002444 
CKSWR 010412 
CNT —-: 001420 
CNTG § 015455 
CNTLU 0104 

CNVCTR 004432 
COLMN 007730 


19=JUL-79 15:06 


a 
*¥ NWOWOWWW 
3 


Mm foO-r- Hun 
NE er ee 


—_ — 2 


484 
404 


20544 


21394 


2002* 


1933 
12254 
1763* 
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CROSS REFERENCE TABLE == USER SYMBOLS 


20554 


20614 20624 20684 20694 20754 


1247 1251 1847 1860 1874 


1305 1317 1444 1479 1496 1794 


1639 

1742 

1137 

7 ie CE eee rs pee aes eee 
1725 1726 1753 1806 

1116 

1390: 1620. ‘1421. © 1928 23820 

1360 1 1375% 1420s 

1404 1431* 

1524 

1111-1273) 1263® = 1246" =: 1249* =: 1253 
17704 


1809 


1530 


1818 


1543 


1612 


SEQ 0046 


1672 


a me nm ae nt rn + nee erm ne ee eee 
ne 
SS Sete eee een 


K 4 
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CZDLBC.P 19=JUL=-79 15:06 CROSS REFERENCE TABLE -=- USER SYMBOLS 
CONFIG 001332 6744 1363 1376 14355* 1436* 1455 1485 1522 1534 
CONN 006326 1438 1472 15134 
COUNT 001324 6714 1026* 1052* 1053 1117* 1121* 1125* 1129 1135* 
COUNT1 001416 7044 1923 1938 1952 
C 014112 912 22244 
CRXTX 003030 957 9604 
CRXTXA 003102 960* 961* 9694 
CRXTXB 003104 956* 959* 9704 
CRXTXC 0035110 963 972k 
C 014062 907 22194 
CSRADD 013126 908 909 1417 1426 21304 
RD 001364 6884 911 1178* 1181* 1372* 1381* 1382 1400* 1401 
CWAS 014074 906 2cc le 
DATCHK= 104004 5404 1380 1395 1399 
DCERR 005610 1342 14144 
DECVAL 004452 1198 12334 
DELAY = 104016 5504 1313 1441 1476 
DE 021432 23834 
DIGIT 004434 1216* 1219% 1222* 1223 12264 
DISCON 006312 1424 1448 1482 15084 
DISPLA 000174 5974 622 
DISPRE 000172 964 622* 
DLCNT 003604 1072* 1074 10844 
DLY 003544 669 10724 
DLYA 003562 10764 #71 
DLYB 003566 10774 #41078 
DLYC 003600 1075 10824 
DOIT 004020 1119 1123 1127 1131 11324 
DONE 004054 1138 11404 
DTCHK 002470 659 9024 
DTCHKA 002566 ) 
DTERR 014001 1062 22104 
ECDAT 003424 10414 1042 
EHALT = 104010 5444 937 972 
EHLT 002456 663 8964 
EHLTA 002466 897 8994 
EIGHT 0035710 1110 11164 
EMTA 002312 8524 
EMTINT 002300 8494 
EMTTAB 001264 6554 854 
13176 933 21384 
ENDPAS 014117 1409 1827 22254 
002570 658 9184 
ERRA 002640 921 9264 
ERRB 002702 918* 919* 922* 923* 924* 9344 
ERRC 002710 927 9374 
ERRCNT 010172 1801* 1822* 18294 
720 928* 929* 931 9404 964* 965* 967 
ERRE 002722 920* 925* 938 9414 
ERROR = 104003 5394 1345 1446 1481 1489 1498 1520 1814 1821 
ERROR1= 104013 5474 908 914 
ERRRX = 104015 S494 1319 1416 1425 1675 1679 1682 
ERRTX = 104014 5484 1706 
ERR1 002612 666 9224 
ERR3A 007306 1646 16754 
ERR3B 007322 1648 16794 
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ERR3C 007330 1653 16824 
RTP 004576 482 484 486 488 496 718 772 12574 1838 
ERTPA 004646 12654 1284 
FILL 004224 11774 1405 
FILLA 004232 11794 1182 
FILL1 001422 O64 1969* 1979 
FINISH 005554 1384 14034 
FIVE 003776 1115 11284 
FMAP 001350 6824 752* 1283 1288* 
FNONE 001346 6814 725* 769* 774 
FORMAD 004762 751 12924 
FROMPC 001342 6794 1264* 1270 1281* 
FTITLE 001344 6804 714* 720 724* 778* 845* 
GENPAR 36 11094 1614 1755 1808 
INBUF 017462 1355 1388 1419 23580F 2381 
INBUFP 001376 69 1353* 1554* 1355 1389* 1419* 
INCPRG 002432 653 654 8854 
INDAT 003400 10354 1064 
INF IL 220 11764 1580 
LDLINE 015024 1147 23144 
LDPRI 010352 1562 18714 
LDPRIA 366 18744 1880 
LDPRIX 010402 1875 18784 
LDTVEC 304 1563 1585 18564 
LDTVED 010324 18604 1867 
LDVECB 010260 18474 1853 
LDVECS 010240 5 1586 18434 
LDVEC1 010272 1848 18504 
LDVEC2 010340 1861 18644 
[FAIL 014553 1676 22584 
LINCA 036 13C5# 8 =1321 
LINCB 005054 13094 1311 
LINCF 005134 1318 13224 
LINCHM 014146 1320 22528 
LINCON 005020 13024 1607 1615 1629 1745 1756 
LINE 001330 6734 1338* 1429 1466* 1468 
LINENO 001354 6844 726* 730* 767 9 
LINEUP 1304 13264 
LINMAD 014176 1325 1453 1800 22 564 
LINSA 004134 11574 1160 
LINSEL 004072 11464 1604 1625 1740 1786 
MACHER 000004 4844 718* 719* 72/* 728% 772* 773* 1838* 18359* 
MAKCON 014020 1308 1570 1592 1791 221354 
MANUAL= 100000 5094 
MAPA 001534 7304 740 77) 
MAPEND (001744 732 772k 
MAPERR 001766 7764 
MAPNE 001564 (27 738 
MAPOK 001574 737 7414 
001706 758 7624 
MAPVEC 004 490 12798 
MDADR 012723 744 
MFROM 013115 1271 21284 
MLINE 012715 748 768 21014 
MMODD 015153 822 23314 
MMODX 015131 814 23278 


-_—w~ 
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MMOD1 015203 
MMOD2 015321 817 23504 
MMOD3 015367 841 23574 
MNONE 012745 777 21074 
MODE 001424 707# 1970* 1975 1978* 1989% 
MODEM 001412 7004 1349 1433* 1434* 
MODEV 002102 610 8024 
MODEV1 002114 8054 815 844 
MODEV2 002150 812 8164 823 
MODEV3 002174 820 8244 
010174 1568 1590 18324 
MOVITA 010214 18354 1837 
F 15073 950 23214 
MSWSEL 012762 794 21104 
MTERR 013016 1274 21154 
MTITLE 012576 723 20864 
MTO 13063 1267 21224 
MTRAP) 012735 765 21054 
N = 000040 5514 204674 20544 20614 20684 20754 20804 20854 
NEW 015473 1921 2372H 
NUMBER 001334 6754 1176* 1179 1180* 1583s 
OACNV 003606 742 746 763 906 907 908 931 956 959 967 10874 1171 1241 
1265 1269 1429 1455 1468 
OACNVA 003620 10924 1101 
OLDPS 001336 677# = 1257* 1259* 1260* 1261* 1262* 1263 
OPEN = 5084 597 598 633 3 645 6 657 670 671 672 673 674 
675 5 687 68 690 691 692 693 694 
697 699 700 701 704 705 706 707 708 709 869 870 8835 
884 934 940 941 969 970 980 988 1015 1027 1029 1084 1211 
1212 1213 1225 1226 1227 1829 2378 2380 
OTBUFP 001406 6974 1418* 1532 1533* 1536 1538* 1541 
OUT 010710 1905 1907 1911 19564 
OUTBUF 015512 1328 1374 1406 1418 1536 1538 1541 1556* 1558 1559 1579s 1581 1638 
1670 23784 2379 2382 
OVRLAY 005154 13284 1561 
OVRLYA 005164 13304 1353 
PARBIT 001322 6704 1116* 1120* 1124s 1128* 1139 1142 
PARE X 554 1248 12504 1254 
PARMTS 014124 1242 22284 
PFAIL 002724 492 9444 
= 005726 5264 1079 1082 
= 022626 5274 739 2 
PRGID 1242 6464 
001240 6454 798* 951 1166 
PRGTAB 001244 6474 8 953 
006502 647 15494 
006612 15724 1573 
PRG1 006616 648 15774 
PRGIC 006714 15944 1595 
006720 649 16024 
PRG2ZA 006742 16074 
006746 16084 1611 
PRG2C 006752 16094 1619 
PRG2M 014252 1608 1802 22454 
PRG3 007016 650 16234 
PRG3A 007032 16274 1678 1729 
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PRG3EX 007540 1715 17294 
PRGS 007552 651 17384 
PRG4A 007606 17454 
PRG4B 007616 17474 1767 1769 
PRG4C 007620 17484 1752 1762 
PRG4D 007636 1750 17534 
PRGS 77 652 17844 
PRGSA 010010 17904 1798 
PRGSAA 010032 17964 1810 
PRG5SB 0040 1795 = 1799# | 
PRGSBB 010050 18024 1828 | 
PRGSC 010054 18034 1825 
PRGSD 010154 1820 18234 
PRGSE 010164 1805 18264 
PRTYO = 5354 
PRIY1 = 0 5344 
PRTY2 = 000100 5334 
PRTY3 = 000140 5324 
PRTY4 = 000200 5314 634 636 642 644 
PRTYS = 000240 5304 
PRTY6 = 000 S294 
PRTY7 = 000340 491 493 495 5284 728 756 1258 1565 1587 
PSW = 177776 5064 717* 733* 756* 792* 804* 1257 1258* 1565* 1571* 1587* 1593* 1642* 
002734 944 9464 

POTIT 013256 1551 21494 
PITIT 013322 1578 21554 
P2TIT 013371 1603 21624 
P3TIT 013441 1624 21694 
P4TIT 013477 1739 21754 
PSTIT 013546 1785 21824 
QUEST 015503 1945 23744 

F 011314 731 30 1351 1353 1358 7414 1443 1478 . 20564 
RCSR 011216 729 826 1156 1340 1392 1397 1444 1473* 1479 1483* 1487 1491 1496 

1500 1504 1508* 1509 1513* 1567 1589 20494 

RDDAT 34 10374 1038 1060 
RDOCT 003372 795 807 818 10324 1148 1238 1432 1463 1554 
RECDAT 001356 6854 3 906 1379* 1394* 1398 
RE 001432 608 7144 
RESTRT 002754 9514 

RN 003530 1045 10654 
RINT 013135 6 21324 
RINT3 007134 1631 16454 
RINT3A 007216 1655 16594 | 
RINT38 pot eee 1 1664 1666 16684 
RINT3SE 007336 1662 16864 
R 005202 13374 2080 
RISRA 005242 1344 13474 
RISRAA 005264 1350 13534 
RISRB 005310 1348 13584 
RISRBB 005356 1364 13684 

005 1356 1366 13714 

RISRCA 005422 13784 1383 
R 005454 1377 13874 
RISRDA 005474 13914 1402 
RISREX 005676 1423 14284 
RI SRF 005624 1415 14184 
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RISRFB 006012 1445 14504 1492 1505 
RISRFC 006056 1437 14614 
RISRFD 006166 14824 1490 1499 
RISRFE 006230 1488 14914 
RISRFF 006202 1480 14854 
RISRFG 006242 1486 4 
RISRFH 0062 1497 15004 
RISRO 011606 1843 20804 
RISR1 011616 20804 
RISR10 011706 20804 
RISR11 011716 20804 
RISR12 011726 20804 
RISR135 011736 20804 
RISR14 011746 20804 
RISR15 011756 20804 
RISR16 011766 20804 
RISR17 01177 20804 
RISR2 011626 20804 
RISR20 O12 20804 
RISR21 012016 20 
RISR22 012026 20804 
RISR235 012036 20804 
RISR24 012046 20804 
RISR25 012056 20804 
RISR26 012 20804 
RISR27 012076 20804 
ISR5 011636 20804 
RISR3O 012106 20804 
RISR31 012116 20804 
ISR32 012126 20804 
RISR33 012136 20804 
RISR 012146 20804 
RISR35 012156 20804 
RISR36 012166 20804 
RISR&4 011646 20804 
RISRS 011656 20804 
RISR6 011666 20804 
RISR7 011676 20 
014371 1683 22614 
0035 1047 1049 1051 1054 10614 
RSTPC 00242 873* 881 8834 
RSTPSW 002430 874* 880 8844 
RSTREG= 104012 5464 936 1102 1193 1214 | 
RSTRG 002372 665 8734 
RTN 030 11354 1143 
001202 6 1294* 1306 1316 1323 1650 1793 1812 1817 
RXBUFT 007550 1650* 1651 1652 17324 
RXCSR 001200 6294 908 1154 1292* 1302 1305* 1309 1312* 1315 1322 1340* = 1341 1392* 
LP dig et 1500* 1504* 1606*  1628* 1641* 1645 1669* 1677" 1742* 1789 179% 
RXCSRT 001370 Bs 959 1302* 1503 1309* 1310 1315* 1317 1322e 1341" = 1343 1422 1645* 
RXERR 003010 668 9584 
RXLVL O01212 6344 981 
RXVTR 001210 6334 757 761 764 979 1287* 
SAVE 001326 6724 1132* 11359 1140 1142s 
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SAVREG= 104011 5454 93° 1087 1186 1197 
SAVRG 002332 664 8594 
SAVRO 003370 993* 1000 1017* 1023 1025 10294 
SCRLF 015510 1937 23754 
SELCAR 013712 1553 22004 
SELPAR 013624 1237 21904 
SETPAR 004460 12364 1451 1502 1605 1626 1741 1788 
SEVEN 003754 1112 11244 
x 003732 1114 11204 
SRPTR 000170 5954 617 621* 783 896 926 962 1654 1904 1917 1955* 
R 001374 6924 1137 1239* 1241 1244 1247 1251 1612 1753 18C6 
0003172 606* 608* 610* 6274 
STALL = 104002 5384 
START 001436 606 7154 780 846 888 1276 
START1 2004 721 775 7834 
STCONT 000226 607 609 6114 
STKPTR= 001200 5074 611 715 802 948 1627 
STPARA 004556 1245 12514 1252 
STPPA 003166 985* 9 
STPRA 003136 977* 9804 
STRVRV 003120 661 9774 
STRXV = 104 5424 1630 
STTXV = 10400 54 1632 
STXMTV 003150 662 9854 
SUBTEN 004372 1205 12164 
SUBTNA 0043576 12174 
SUBTNB 004412 1218 12214 
SVRPC 0023¢ 859» 8694 
SVRPSW 00237 860* 8 
015463 1916 23704 
SWREG 000176 5984 621 783 1904 
TBIT1 004512 12434 
T 011510 838 1526* 1532* 20704 
TBUFFP 001410 998 1390* 1421* 1526 1527* 1528 
TCONFI 014246 1455 22438 
TCRLF 007732 1640 1746 17 17744 
TCSR 011412 834 1368*  1410* 1450 1457* 1501 1518 1550* 1543* 20634 
001372 6914 1153" 1169* 1177 1702* 1710 
TEMPST 001426 7084 38 1922* 1947 1948* 1949 1951* 1955 
TEMP1 001352 6834 741* 743 
TENPWR 436 1204* 1217 1221 12274 
TFLAG 007544 1639* 1661 1686* 17304 | 
TIB 001430 709# 1908* 1909* 1910 1926* 1929 1930* 19351 1934 1940 1942 1950" 1951 
TINTM 013156 1707 21354 
TINTS 00 1633 6 
TINT3B 007416 1692 17024 
TINTSC 007460 1696 1698 1700 17134 
ISR 006336 15164 2085 
TISRA 006354 1519 15224 
TISRAA 006352 15214 1537 1542 
TISRB 1535 15414 
TISRBB 006452 15384 154 
TISRC 006422 1523 1525 15324 
TISRO 012176 1856 20854 
TISR1 012206 20854 
TISR1O0 012276 20854 


C7DiI.BCO OL1I1-E 
C7DLBC .P11 
TISR11 012306 
TISR12 012316 
TISR13 012326 
TISR14 012336 
TISR15 012346 
TISR16 012356 
TISR17 012366 
TISR2 012216 
TISR20 012376 
TISR21 012406 
TISR22 012416 
TISR235 012426 
TISR24 012436 
TISR25 012446 
TISR26 012456 
TISR27 012466 
TISRS 012226 
TISR3O 012476 
TISR31 012506 
TISR3S2 012516 
TISR33 012526 
TISR34 012536 
TISR35 012546 
TISR36 012556 
TISR37 012566 
TISR4 012236 
TISRS 012246 
TISR6 012256 
TISR7 012266 
TKB 001222 
TKLVL 001232 
TKS 001220 
TKVTR 001230 
TLINE 014473 
TLINEX 014443 
TOPC 1340 
TPB 001226 
TPINT 7500 
TPINTA 007520 
TPLVL 1236 
TPS 001224 
TPVTR 1234 
TTINTS 010712 
1206 
TXCSR 001204 
TXCSRT 1 
TXERR 002766 
TXLVL 001216 
TXVTR 001214 
TYP 32 
TYPA 003214 
TYPC 32 
TYPD 003254 
TYPDAT 003320 
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a LE 
I 


SE LL VL SA pe ee GE 
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i 

TYPE = 104000 536" 8=—_ 722 767 776 793 805 813 816 821 840 885 949 1026 | 
1061 «11461171 1236 12411273) 1307-1324) 1408 = 1429 1439 1452 1455 | 
1661 14668 = 1474.—S ss 1550-Ss«1552,s«1569s« 1577, 1591: 1602,s«*1623—Ss«*d173Be=C*«‘7BGSC«A790 | 
1796 1799 1826 1912 1915 1920 1936 1944 

TYPES = 104001 537" = 932 967 

TYPF 003272 1003 10104 

TYPOC 010730 1918 19694 

TYPON 010744 19714 

TYPS 0033 656 10178 

TYPSA 003356 1022 10254 

TYPSAA 003326 10184 1028 

TYPSB 003364 1020" 1021 10274 

UR 014730 1469 2303 

URA 014760 1468 23074 

VECTAB 011120 761* 1161 1844 1857 1871 20154 

WORDS 007546 1634" 1649* 1659 1668* 1694" 1697 17318 

WRU 014633 1462 2292 

XMTDAT 001360 6864 902* 903 907 1378* =: 1393 

; = 021432 4814 498 504 5944 6054 6284 1008 1167 1361 1529 1613 1618 1644 
1657. 1705 = 1709.-Ss-1727,—s«*1754=Ss1759S's«1776-—Ss«d1779”~Cté*—é«<*2BOFsi«‘*d1BdSs«d1B16 18260 2379 


CZDLBCO DL1i-E ON LINE TSET MACY1? 30A(1052) 


CZD0L. BC P11 19=JUL=79 15:06 

CNVOA 5544 905 906 907 930 
1SR 5614 2080 

ISRT 5674 2085 

RBUF F S77# = 

RRCV 573 2054 

TBUF F 5854 2675 

TXMT 5814 2068 


- ABS. 021432 000 


ERRORS DETECTED: 0 


,CZDLBC.LST/CRF/SOL/NL : TOC=CZDLBC.P11 
RUN-TIME: 10 17 3 SECONDS 

RUN-TIME RATIO: 91/31=2.9 

CORE USED: 10k (19 PAGES) 


19=jUL-79 


CROSS REFERENCE TABLE 


955 958 
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966 1770 


1240 


1428 


1454 


1467 


ween eee er 


